diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 21:55:10 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-28 21:55:10 +0200 |
| commit | 6444bb641cef5e487655aec0b537be25b231091b (patch) | |
| tree | c07818cc638778db203e0f621c3894cd1bfb7234 /Xerl/Main | |
| parent | 7da5436ceb9179d107550f3f563b5119c1cf0310 (diff) | |
use v5.10.0
Diffstat (limited to 'Xerl/Main')
| -rw-r--r-- | Xerl/Main/Global.pm | 9 |
1 files changed, 7 insertions, 2 deletions
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; } |