From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 25 Sep 1998 00:13:36 +0000 (+0000)
Subject: fix change#1861, which breaks default boot_xxx symbol generation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=348844dc614dfb89540273fcb837c4d84be1019f;p=p5sagit%2Fp5-mst-13.2.git

fix change#1861, which breaks default boot_xxx symbol generation

p4raw-link: @1861 on //depot/perl: 762efda7da89e66e6132e666545886910dd743f8

p4raw-id: //depot/perl@1878
---

diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm
index bad353e..1e06463 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}}) {