Am I missing something in this code

[bignester]

package file_handler_funcs;

sub legal($) {
  my $file_name = shift;
  
  $file_name =~ s/\s/\\ /g;
  $file_name =~ s/\(/\\(/g;
  $file_name =~ s/\)/\\)/g;
  $file_name =~ s/'/\\'/g;

  return ($file_name);
}

1;

#!/usr/bin/perl

use file_handler_funcs;

@dirs = `ls -lR $ARGV[0]`;
$sum = 0;
foreach $dir (@dirs) {
  chomp($dir);
  if($dir =~ /^-/) {
    @info = split /\s+/,$dir,9;
    $sum+=$info[4];
    $file=legal($info[$#info]);
    print("$file\n");
  }
}

this gives me a compile error saying legal doesnt exist.[/code]

[genlee]

You must either add something like this to your module:

require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw(legal);

or call legal like this:

file_handler_funcs::legal

[genlee]

Oh yeah I forgot you call call it like this

file_handler_funcs->legal

BTW you might want to add my $self =shift; in your subs in your module since it passes the package name to it first.

[bignester]

thanx for the help