Browse files

Clean up the preprocessor's backup files.

  • Loading branch information...
1 parent c9f1c19 commit 3072b85c342202c8a9dbe384ee4a20144e51a1fb @rcaputo committed Feb 26, 2006
Showing with 11 additions and 1 deletion.
  1. +11 −1 Makefile.PL
View
12 Makefile.PL
@@ -83,11 +83,21 @@ else {
find(
sub {
next unless -f and /\.pm$/;
- system $^X, "-p", "-i.bak", "-e", $code, $_;
+ system($^X, "-p", "-i.pp", "-e", $code, $_) and die "System error: $!";
},
"lib"
);
+find(
+ sub {
+ next unless -f and /\.pp$/;
+ unlink $_;
+ },
+ "lib"
+);
+
+print "\n";
+
# Which kind of makefile should we build?
if ($] < 5.005004) {

0 comments on commit 3072b85

Please sign in to comment.