From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 18 Apr 2011 09:06:53 +0000 (+0200)
Subject: Konstruktue "my ($foo) = shift" durch eindeutigere Konstrukte ersetzt
X-Git-Tag: release-2.6.3~35^2~3
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=b95c5658c6e036170dc1b85593bd432d0e58f5cf;p=kivitendo-erp.git

Konstruktue "my ($foo) = shift" durch eindeutigere Konstrukte ersetzt
---

diff --git a/SL/Template/Plugin/T8.pm b/SL/Template/Plugin/T8.pm
index ca62e8604..6ab91db7b 100644
--- a/SL/Template/Plugin/T8.pm
+++ b/SL/Template/Plugin/T8.pm
@@ -6,7 +6,7 @@ use parent qw( Template::Plugin::Filter );
 my $cached_instance;
 
 sub new {
-  my ($class) = shift;
+  my ($class) = @_;
 
   return $cached_instance ||= $class->SUPER::new(@_);
 }
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 5c55ad69b..2d833b6b7 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -473,7 +473,7 @@ sub update {
 
   $main::auth->assert('invoice_edit');
 
-  my ($recursive_call) = shift;
+  my ($recursive_call) = @_;
 
   $form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate}) unless $recursive_call;
 
diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 563e94bcc..1d98eabc0 100644
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -516,7 +516,7 @@ sub form_footer {
 sub update {
   $main::lxdebug->enter_sub();
 
-  my ($recursive_call) = shift;
+  my ($recursive_call) = @_;
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;