From 258bf9ae10f4ad1130e0b5a0a2d834ceb0877d6b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Mon, 19 Sep 2011 17:32:19 +0200 Subject: [PATCH] compare_numbers argumente nicht rausshiften --- SL/MoreCommon.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/SL/MoreCommon.pm b/SL/MoreCommon.pm index 048e3ecd8..ded6ddf32 100644 --- a/SL/MoreCommon.pm +++ b/SL/MoreCommon.pm @@ -59,10 +59,7 @@ sub restore_form { sub compare_numbers { $main::lxdebug->enter_sub(); - my $a = shift; - my $a_unit = shift; - my $b = shift; - my $b_unit = shift; + my ($a, $a_unit, $b, $b_unit) = @_; $main::all_units ||= AM->retrieve_units(\%main::myconfig, $main::form); my $units = $main::all_units; -- 2.20.1