From: Yves Orton <demerphq@gmail.com>
Date: Fri, 15 Dec 2006 12:52:45 +0000 (+0100)
Subject: Re: [PATCH] Errno doesnt rebuild when things it depends on in Config.pm change
X-Git-Tag: accepted/trunk/20130322.191538~16346
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=90ec05cef95275d090438d677bea4199a5df35b5;p=platform%2Fupstream%2Fperl.git

Re: [PATCH] Errno doesnt rebuild when things it depends on in Config.pm change
Message-ID: <9b18b3110612150352y2394954bg5acd5ec5fd320d33@mail.gmail.com>

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

diff --git a/ext/Errno/Makefile.PL b/ext/Errno/Makefile.PL
index 604d4fb..527f700 100644
--- a/ext/Errno/Makefile.PL
+++ b/ext/Errno/Makefile.PL
@@ -1,7 +1,26 @@
 use ExtUtils::MakeMaker;
+use Config;
 
 @VMS = ($^O eq 'VMS') ? (MAN3PODS => {}) : ();
 
+my $arch = "$Config{'archname'}-$Config{'osvers'}";
+my $got = "";
+if (-e 'arch.txt') {
+    open my $in, "<", "arch.txt" or die "Can't read 'arch.txt': $!";
+    $got = <$in>;
+    close $in;
+}
+if ($got ne $arch) {
+    if (-e "Errno.pm") {
+        print "Removing old 'Errno.pm'\n";
+        unlink "Errno.pm" 
+            or die "Failed to remove out of date 'Errno.pm': $!";
+    }
+    open my $out, ">", "arch.txt" or die "Can't write 'arch.txt': $!";
+    print $out $arch;
+    close $out;
+}
+
 WriteMakefile(
     NAME	 => 'Errno',
     VERSION_FROM => 'Errno_pm.PL',