Permalink
Browse files

fixed parameter for "use perl5;"

  • Loading branch information...
1 parent 6fbf433 commit 20f9f59ff748fe1afa484dfe0c7410c39cb7f44a @FROGGS FROGGS committed Mar 26, 2013
Showing with 5 additions and 0 deletions.
  1. +5 −0 fudge
View
5 fudge
@@ -109,6 +109,11 @@ my $EXIT = $OPTS{'--keep-exit-code'} ? '' : 'exit(1);';
@ARGV = ($IN);
fudgeblock();
+if ($OPTS{'--add_use_perl5'}) {
+ $REALLY_FUDGED = 1;
+ $OUTPUT = "use perl5;\n$OUTPUT";
+}
+
if ($REALLY_FUDGED) {
open OUT, ">", $OUT or die "Can't create $OUT: $!";
print OUT $OUTPUT;

0 comments on commit 20f9f59

Please sign in to comment.