diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 8dbf403b4..72a40bd32 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -106,8 +106,8 @@ sub removeXiBSuffix { $_; } sub formatXiB { - my ($newnb, $newbase) = @_; - $newbase ||= 1; + my ($newnb, $o_newbase) = @_; + my $newbase = $o_newbase || 1; my ($nb, $base); my $decr = sub { ($nb, $base) = ($newnb, $newbase); |