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

diff --git a/SL/Template/Plugin/T8.pm b/SL/Template/Plugin/T8.pm
index ca62e86..6ab91db 100644 (file)
--- 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 5c55ad6..2d833b6 100644 (file)
--- 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 563e94b..1d98eab 100644 (file)
--- 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;