This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix for bugs in -x mode
authorIlya Zakharevich <ilya@math.berkeley.edu>
Sat, 31 Oct 1998 00:30:57 +0000 (19:30 -0500)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 31 Oct 1998 09:35:03 +0000 (09:35 +0000)
Message-Id: <199810310530.AAA22277@monk.mps.ohio-state.edu>
Subject: [PATCH 5.00552] Fix h2xs

p4raw-id: //depot/perl@2160

utils/h2xs.PL

index 44cb0fb..47f7ada 100644 (file)
@@ -362,8 +362,8 @@ chdir($modpname) || die "Can't chdir $ext$modpname: $!\n";
 
 my %types_seen;
 my %std_types;
-my $fdecls;
-my $fdecls_parsed;
+my $fdecls = [];
+my $fdecls_parsed = [];
 
 if( ! $opt_X ){  # use XS, unless it was disabled
   open(XS, ">$modfname.xs") || die "Can't create $ext$modpname/$modfname.xs: $!\n";
@@ -374,22 +374,20 @@ if( ! $opt_X ){  # use XS, unless it was disabled
     get_typemap();
     my $c;
     my $filter;
-        my @fdecls;
-        foreach my $filename (@path_h) {
-    my $addflags = $opt_F || '';
-    if ($fullpath =~ /,/) {
-      $filename = $`;
-      $filter = $';
+    foreach my $filename (@path_h) {
+      my $addflags = $opt_F || '';
+      if ($fullpath =~ /,/) {
+       $filename = $`;
+       $filter = $';
+      }
+      warn "Scanning $filename for functions...\n";
+      $c = new C::Scan 'filename' => $filename, 'filename_filter' => $filter,
+       'add_cppflags' => $addflags;
+      $c->set('includeDirs' => ["$Config::Config{archlib}/CORE"]);
+      
+      push @$fdecls_parsed, @{ $c->get('parsed_fdecls') };
+      push(@$fdecls, @{$c->get('fdecls')});
     }
-    warn "Scanning $filename for functions...\n";
-    $c = new C::Scan 'filename' => $filename, 'filename_filter' => $filter,
-    'add_cppflags' => $addflags;
-    $c->set('includeDirs' => ["$Config::Config{archlib}/CORE"]);
-    
-    $fdecls_parsed = $c->get('parsed_fdecls');
-            push(@fdecls, @{$c->get('fdecls')});
-        }
-        $fdecls = [ @fdecls ];
   }
 }