diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-05-30 05:39:07 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-05-30 05:39:07 -0500 |
commit | 3e5092c171bc4bf0b67c29486ae068bdc497acd8 (patch) | |
tree | 4f3a4a25c42008656b01af7ea1efa66817189760 | |
parent | b9ed547db043ef57dca6d2d633c344bf0a00af2c (diff) | |
download | reply-3e5092c171bc4bf0b67c29486ae068bdc497acd8.tar.gz reply-3e5092c171bc4bf0b67c29486ae068bdc497acd8.zip |
make the default config also use 5.xx
-rw-r--r-- | bin/reply | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -14,7 +14,12 @@ my %args = (config => $cfg); if (!-e $cfg) { print("$cfg not found. Generating a default...\n"); if (open my $fh, '>', $cfg) { - print $fh <DATA>; + my $contents = do { + local $/; + <DATA> + }; + $contents =~ s/use 5.XXX/use $]/; + print $fh $contents; close $fh; } else { @@ -28,6 +33,7 @@ Reply->new(%args)->run; __DATA__ script_line1 = use strict script_line2 = use warnings +script_line2 = use 5.XXX [Interrupt] [FancyPrompt] |