Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 29 lines (23 sloc) 0.472 kb
92f9012 @theory Added unite testing framework. Added Makefil.PL so that a particular …
theory authored
1 #!/usr/bin/perl -w
2
3 use strict;
4 use warnings;
5 use Config;
6 use File::Copy;
7
8 my $old = 'Makefile';
9 my $new = 'Makefile.new';
10
11 open OLD, "<", $old or die "Unable to open $old: $!\n";
12 open NEW, ">", $new or die "Unable to open $new: $!\n";
13 my $flag;
14 while (<OLD>) {
15 if ($flag) {
16 print NEW;
17 next;
18 } elsif (/^PERL\s*=\s*/) {
19 print NEW "PERL = $Config{perlpath}\n";
20 } else {
21 print NEW;
22 }
23 }
24
25 close OLD;
26 close NEW;
27
28 move $new, $old;
Something went wrong with that request. Please try again.