From 11b1896cf142b490323a91b04344a20e7a25c9f4 Mon Sep 17 00:00:00 2001
From: "Chuck Norris (mars.fritz.box)" <paul@buetow.org>
Date: Thu, 28 Aug 2014 09:36:37 +0200
Subject: un perltig

---
 Xerl/Setup/Configure.pm | 4 ++--
 Xerl/Setup/Request.pm   | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'Xerl/Setup')

diff --git a/Xerl/Setup/Configure.pm b/Xerl/Setup/Configure.pm
index 2d248f2..537ac4f 100644
--- a/Xerl/Setup/Configure.pm
+++ b/Xerl/Setup/Configure.pm
@@ -126,7 +126,7 @@ sub defaults {
 
 sub eval {
   my $self = $_[0];
-  my $val = $_[1];
+  my $val  = $_[1];
 
   $val =~ s/^!(.+)/`$1`/eo;
 
@@ -134,7 +134,7 @@ sub eval {
 }
 
 sub insertxmlvars {
-  my $self = $_[0];
+  my $self    = $_[0];
   my $element = $_[1];
 
   $element = $element->starttag('variables');
diff --git a/Xerl/Setup/Request.pm b/Xerl/Setup/Request.pm
index c6f2e53..bfbd2b4 100644
--- a/Xerl/Setup/Request.pm
+++ b/Xerl/Setup/Request.pm
@@ -15,7 +15,7 @@ use v5.14.0;
 use Xerl::Base;
 
 sub parse {
-  my $self = $_[0];
+  my $self    = $_[0];
   my $request = $self->get_request();
 
   # Secure it!
-- 
cgit v1.2.3