diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-25 00:13:36 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-25 00:13:36 +0000 |
| commit | 348844dc614dfb89540273fcb837c4d84be1019f (patch) | |
| tree | c527a5f6cb65a1c9854acb859758f691672d7bd7 | |
| parent | 344462d3dde55465e709768c0d1dbfa2a8198aa5 (diff) | |
| download | perl-348844dc614dfb89540273fcb837c4d84be1019f.tar.gz | |
fix change#1861, which breaks default boot_xxx symbol generation
p4raw-link: @1861 on //depot/perl: 762efda7da89e66e6132e666545886910dd743f8
p4raw-id: //depot/perl@1878
| -rw-r--r-- | lib/ExtUtils/Mksymlists.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm index bad353e78c..1e064633e7 100644 --- a/lib/ExtUtils/Mksymlists.pm +++ b/lib/ExtUtils/Mksymlists.pm @@ -19,10 +19,10 @@ sub Mksymlists { $spec{DL_VARS} = [] unless $spec{DL_VARS}; ($spec{FILE} = $spec{NAME}) =~ s/.*::// unless $spec{FILE}; + $spec{FUNCLIST} = [] unless $spec{FUNCLIST}; $spec{DL_FUNCS} = { $spec{NAME} => [] } unless ( ($spec{DL_FUNCS} and keys %{$spec{DL_FUNCS}}) or - $spec{FUNCLIST}); - $spec{FUNCLIST} = [] unless $spec{FUNCLIST}; + @{$spec{FUNCLIST}}); if (defined $spec{DL_FUNCS}) { my($package); foreach $package (keys %{$spec{DL_FUNCS}}) { |