- cosmetic fix

Changed files:
    perl.prov -> 1.6

diff --git a/perl.prov b/perl.prov
index aa4563479418e47d820ac9b6d4d5b84a4b103eba..87d11ea1d6eb28dadbeaa8845f7696913a9ca0f2 100644 (file)
--- a/perl.prov
+++ b/perl.prov
@@ -75,8 +75,7 @@ sub process_file {
                # 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 )
                  )
@@ -97,7 +96,7 @@ sub process_file {
        }
 
        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;
        }