Use a regex instead of Module::Info to scan for packages

git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@4242 50811bd7-b8ce-0310-adc1-d9db26280581

Build.PL

@@ -31,7 +31,6 @@ my $build = new Module::Build
 		  'Archive::Tar' => '1.00',
 		  'ExtUtils::Install' => 0.30,
 		  'ExtUtils::ParseXS' => 2.02,
-		  'Module::Info' => 0,
 		  # Module::Signature => 0.21,  # Our support isn't good enough yet
 		 },
    build_requires => {

lib/Module/Build/Base.pm

@@ -1370,25 +1370,28 @@ sub find_dist_packages {
   foreach my $file (@pm_files) {
     next if $file =~ m{^t/};  # Skip things in t/
 
-    return unless $] >= 5.006;  # perl 5.6 required for Module::Info
-    return unless eval "use Module::Info 0.19; 1";
-
     my $localfile = File::Spec->catfile( split m{/}, $file );
     my $version = $self->version_from_file( $localfile );
-
-    print "Scanning $localfile for packages\n";
-    my $module = Module::Info->new_from_file( $localfile );
-
-    foreach my $package ($module->packages_inside) {
-      $out{$package} = {
-			file => $file,
-			version => $version,
-		       };
+
+    foreach my $package ($self->_packages_inside($localfile)) {
+      $out{$package}{file} = $file;
+      $out{$package}{version} = $version if defined $version;
     }
   }
   return \%out;
 }
 
+sub _packages_inside {
+  # XXX this SUCKS SUCKS SUCKS!  Damn you perl!
+  my ($self, $file) = @_;
+  my $fh = IO::File->new($file) or die "Can't read $file: $!";
+  my @packages;
+  while (defined(my $line = <$fh>)) {
+    push @packages, $1 if $line =~ /^[\s\{;]*package\s+([\w:]+)/;
+  }
+  return @packages;
+}
+
 sub make_tarball {
   my ($self, $dir) = @_;