Change 34226: [PATCH] Add cygperl*.dll to packlist

[H . Merijn Brand]

Change 34226 by [EMAIL PROTECTED] on 2008/08/25 15:56:16

        Subject: [PATCH] Add cygperl*.dll to packlist
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Mon, 25 Aug 2008 10:47:24 -0400
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/installperl#160 edit

Differences ...

==== //depot/perl/installperl#160 (xtext) ====
Index: perl/installperl
--- perl/installperl#159~34219~ 2008-08-24 01:58:40.000000000 -0700
+++ perl/installperl    2008-08-25 08:56:16.000000000 -0700
@@ -365,12 +365,24 @@
     map { s|^$coredir/||i; } @corefiles = <$coredir/*.*>;
 }
 elsif ($Is_Cygwin) { # On Cygwin symlink it to CORE to make Makefile happy
+    @corefiles = <*.h libperl*.* perl*$Config{lib_ext}>;
     my $coredll = "$installarchlib/CORE/$libperl";
+    safe_unlink($coredll);
     ( $Config{'d_link'} eq 'define' &&
-      eval { CORE::link "$installbin/$libperl", $coredll } ) ||
-    eval { symlink "$installbin/$libperl", $coredll }  ||
-    copy("$installbin/$libperl", $coredll);
-    @corefiles = <*.h libperl*.* perl*$Config{lib_ext}>;
+      eval {
+          CORE::link("$installbin/$libperl", $coredll);
+          $packlist->{$coredll} = { from => "$installbin/$libperl",
+                                    type => 'link' };
+      }
+    ) ||
+    eval {
+        symlink("$installbin/$libperl", $coredll);
+        $packlist->{$coredll} = { from => "$installbin/$libperl",
+                                  type => 'link' };
+    } ||
+    ( copy("$installbin/$libperl", $coredll) &&
+      push(@corefiles, $coredll)
+    )
 } else {
     # [als] hard-coded 'libperl' name... not good!
     @corefiles = <*.h libperl*.* perl*$Config{lib_ext}>;
End of Patch.