Commit | Line | Data |
eab60bb1 |
1 | use ExtUtils::MakeMaker; |
90ec05ce |
2 | use Config; |
eab60bb1 |
3 | |
90ec05ce |
4 | my $arch = "$Config{'archname'}-$Config{'osvers'}"; |
5 | my $got = ""; |
6 | if (-e 'arch.txt') { |
7 | open my $in, "<", "arch.txt" or die "Can't read 'arch.txt': $!"; |
8 | $got = <$in>; |
9 | close $in; |
10 | } |
11 | if ($got ne $arch) { |
12 | if (-e "Errno.pm") { |
13 | print "Removing old 'Errno.pm'\n"; |
14 | unlink "Errno.pm" |
15 | or die "Failed to remove out of date 'Errno.pm': $!"; |
16 | } |
17 | open my $out, ">", "arch.txt" or die "Can't write 'arch.txt': $!"; |
18 | print $out $arch; |
19 | close $out; |
20 | } |
21 | |
eab60bb1 |
22 | WriteMakefile( |
23 | NAME => 'Errno', |
24 | VERSION_FROM => 'Errno_pm.PL', |
25 | PL_FILES => {'Errno_pm.PL'=>'Errno.pm'}, |
26 | PM => {'Errno.pm' => '$(INST_LIBDIR)/Errno.pm'}, |
55612000 |
27 | 'clean' => {FILES => 'Errno.pm arch.txt'}, |
eab60bb1 |
28 | 'dist' => { |
29 | COMPRESS => 'gzip -9f', |
30 | SUFFIX => '.gz', |
31 | DIST_DEFAULT => 'd/Errno.pm tardist', |
32 | }, |
eab60bb1 |
33 | ); |
34 | |
35 | sub MY::postamble { |
36 | my $TARG = MM->catfile('d','Errno.pm'); |
37 | qq!$TARG : Makefile |
38 | echo '#This is a dummy file so CPAN will find a VERSION' > $TARG |
39 | echo 'package Errno;' >> $TARG |
40 | echo '\$\$VERSION = "\$(VERSION)";' >>$TARG |
41 | echo '#This is to make sure require will return an error' >>$TARG |
42 | echo '0;' >>$TARG |
43 | |
44 | ! |
45 | } |