cvsuser 03/03/12 01:51:17
Modified: config/gen makefiles.pl
Log:
imcc-makefile: #21547
Revision Changes Path
1.15 +10 -3 parrot/config/gen/makefiles.pl
Index: makefiles.pl
===================================================================
RCS file: /cvs/public/parrot/config/gen/makefiles.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -w -r1.14 -r1.15
--- makefiles.pl 21 Jan 2003 10:09:58 -0000 1.14
+++ makefiles.pl 12 Mar 2003 09:51:17 -0000 1.15
@@ -27,15 +27,22 @@
commentType => '#');
genfile('config/gen/makefiles/imcc.in', 'languages/imcc/Makefile',
commentType => '#');
- system("$^X -pi -e's/ -Wwrite-strings//' languages/imcc/Makefile");
- system("$^X -pi -e's/ -Wcast-qual//' languages/imcc/Makefile");
- system("$^X -pi -e's/ -Wno-unused/ -Wunused/' languages/imcc/Makefile");
genfile('config/gen/makefiles/bf.in', 'languages/bf/Makefile',
commentType => '#');
genfile('config/gen/makefiles/befunge.in', 'languages/befunge/Makefile',
commentType => '#');
genfile('config/gen/makefiles/ook.in', 'languages/ook/Makefile',
commentType => '#');
+
+ # Change compiler flags in IMCC's makefile using inplace edit.
+ my $PQ = Configure::Data->get('PQ');
+ my $imcc = 'languages/imcc/Makefile';
+ my $pgm = ' s/ -Wwrite-strings//;'
+ . ' s/ -Wcast-qual//;'
+ . ' s/ -Wno-unused/ -Wunused/;';
+ system "$^X -pi.bak -e$PQ$pgm$PQ $imcc" and warn;
+ unlink "$imcc.bak" or warn;
+
}
1;
