diff options
Diffstat (limited to 'scripts/Dpkg/Version.pm')
| -rw-r--r-- | scripts/Dpkg/Version.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/Dpkg/Version.pm b/scripts/Dpkg/Version.pm index 3a8e281e5..e2dda9275 100644 --- a/scripts/Dpkg/Version.pm +++ b/scripts/Dpkg/Version.pm @@ -270,7 +270,7 @@ of the character is used to sort between characters. =cut sub version_compare_string($$) { - sub order(_) { + sub order { my ($x) = @_; if ($x eq '~') { return -1; @@ -282,8 +282,8 @@ sub version_compare_string($$) { return ord($x) + 256; } } - my @a = map(order, split(//, shift)); - my @b = map(order, split(//, shift)); + my @a = map(order($_), split(//, shift)); + my @b = map(order($_), split(//, shift)); while (1) { my ($a, $b) = (shift @a, shift @b); return 0 if not defined($a) and not defined($b); |