From 6444bb641cef5e487655aec0b537be25b231091b Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 28 Sep 2013 21:55:10 +0200
Subject: use v5.10.0

---
 Xerl/Main/Global.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'Xerl/Main')

diff --git a/Xerl/Main/Global.pm b/Xerl/Main/Global.pm
index bf78ce0..e1a4a44 100644
--- a/Xerl/Main/Global.pm
+++ b/Xerl/Main/Global.pm
@@ -7,6 +7,11 @@
 
 package Xerl::Main::Global;
 
+use strict;
+use warnings;
+
+use v5.10.0;
+
 sub SHUTDOWN {
   exit 0;
 
@@ -15,7 +20,7 @@ sub SHUTDOWN {
 }
 
 sub DEBUG {
-  print 'Debug::', @_, "\n";
+  say "Debug::@_";
 
   return undef;
 }
@@ -40,7 +45,7 @@ sub PLAIN {
 
 sub REDIRECT ($) {
   my $location = shift;
-  print "Status: 301 Moved Permanantly\n";
+  say "Status: 301 Moved Permanantly";
   print "Location: $location\n\n";
   return undef;
 }
-- 
cgit v1.2.3