From 3e5092c171bc4bf0b67c29486ae068bdc497acd8 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 30 May 2013 05:39:07 -0500
Subject: make the default config also use 5.xx

---
 bin/reply | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/bin/reply b/bin/reply
index 569816e..8a6a4b5 100644
--- a/bin/reply
+++ b/bin/reply
@@ -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]
-- 
cgit v1.2.3-54-g00ecf