diff options
| author | Chuck Norris (mars.fritz.box) <paul@buetow.org> | 2014-08-28 09:36:37 +0200 |
|---|---|---|
| committer | Chuck Norris (mars.fritz.box) <paul@buetow.org> | 2014-08-28 09:36:37 +0200 |
| commit | 11b1896cf142b490323a91b04344a20e7a25c9f4 (patch) | |
| tree | 35ebdc0392d143029d3d9bea01a7325a8107022f /Xerl/Tools/FileIO.pm | |
| parent | b16cca8b3944c071a15ba57820804cfb6da9cbdb (diff) | |
un perltig
Diffstat (limited to 'Xerl/Tools/FileIO.pm')
| -rw-r--r-- | Xerl/Tools/FileIO.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 ) = |