From 90ec05cef95275d090438d677bea4199a5df35b5 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Fri, 15 Dec 2006 13:52:45 +0100 Subject: 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 --- ext/Errno/Makefile.PL | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/ext/Errno/Makefile.PL b/ext/Errno/Makefile.PL index 604d4fb8e8..527f700dba 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', -- cgit v1.2.1