/filefind/perl/filefind.pl |
---|
28,7 → 28,7 |
my ($progname, $mesg) = @_; |
print "Usage : $progname directory\n"; |
print "Usage: $progname directory\n"; |
print "$mesg\n" |
} |
93,7 → 93,7 |
} |
else |
{ |
Usage ($progname, "ERROR: No directory $directory found"); |
Usage ($progname, "ERROR: Not a directory : $directory"); |
} |
} |
else |