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

diff --git a/SL/Template/Plugin/T8.pm b/SL/Template/Plugin/T8.pm
index ca62e8604bef55c464f3114b6d7aff7c0ba3c89e..6ab91db7b36092c2c78afdba94f6b67ac92931a0 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 5c55ad69b8bb7cc6adc5225743cc10212e59f1ea..2d833b6b7cf8a20beeed209630f7cd3c551c6747 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 563e94bcce2ea7cdccf262802c3501f152ef2e35..1d98eabc05b06ff61cebba474498d67ad78b7bd5 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;