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/Tools/FileIO.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Xerl/Tools')

diff --git a/Xerl/Tools/FileIO.pm b/Xerl/Tools/FileIO.pm
index 31d5c66..63e2b86 100644
--- a/Xerl/Tools/FileIO.pm
+++ b/Xerl/Tools/FileIO.pm
@@ -95,7 +95,7 @@ sub reverse_array {
 }
 
 sub merge {
-  my ($self, $other) = @_;
+  my ( $self, $other ) = @_;
 
   my @merged = ( @{ $self->get_array() }, @{ $other->get_array() } );
   my $fio = Xerl::Tools::FileIO->new();
@@ -124,7 +124,7 @@ sub str {
 }
 
 sub _fwrite {
-  my $self = $_[0];
+  my $self   = $_[0];
   my $append = $_[1];
 
   my ( $path, $filename ) =
-- 
cgit v1.2.3