# search for the package name
if (
!defined $package
- && ( my ($pack) =
- m/^\s*(?:\{\s*)?package\s+([_:a-zA-Z0-9]+?):*\s*;/ )
+ && ( my ($pack) = m/^\s*(?:\{\s*)?package\s+([_:a-zA-Z0-9]+?):*\s*;/ )
&& $1 ne 'main'
&& match_the_path( $file, $1 )
)
}
unless ( defined $package ) {
- warn "$0: weird, I can't determine the package name for `$file'\n";
+ warn "$0: weird, cannot determine the package name for `$file'\n";.*
return 0;
}