On Jul 5, Adam Theo said:
>sub check_source {
> my($source_dir, $source_file) = @_;
> print("Checking $source_dir/$source_file.\n");
> if ($source_file =~ /^\./) {
> print("Can't open file '$source_dir/$source_file':
> System file.\n");
> }
> elsif (-d $source_file) {
You mean to be checking "$source_dir/$source_file", not just $source_file.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
I am Marillion, the wielder of Ringril, known as Hesinaur, the Winter-Sun.
Are you a Monk? http://www.perlmonks.com/ http://forums.perlguru.com/
Perl Programmer at RiskMetrics Group, Inc. http://www.riskmetrics.com/
Acacia Fraternity, Rensselaer Chapter. Brother #734
** Manning Publications, Co, is publishing my Perl Regex book **
