summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/sort.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-23 21:46:20 +0000
committerKarl Berry <karl@freefriends.org>2014-04-23 21:46:20 +0000
commit300c1eb6d37d46078d448d6d58938d5a80cd68ff (patch)
tree23a0a8b9f8f5460b405119c4d3c163d2d488ca5e /Master/tlpkg/tlperl/lib/sort.pm
parented55d86b7c5e18f6eccce80a1fb1423ca40a23b5 (diff)
(tl)perl 5.18.2 for windows from siep
git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/sort.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/sort.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/sort.pm b/Master/tlpkg/tlperl/lib/sort.pm
index 922f82b4691..7c8e50db577 100644
--- a/Master/tlpkg/tlperl/lib/sort.pm
+++ b/Master/tlpkg/tlperl/lib/sort.pm
@@ -1,6 +1,6 @@
package sort;
-our $VERSION = '2.01';
+our $VERSION = '2.02';
# The hints for pp_sort are now stored in $^H{sort}; older versions
# of perl used the global variable $sort::hints. -- rjh 2005-12-19
@@ -180,14 +180,14 @@ So now this code would be written:
{ use sort qw(defaults _quicksort); # force quicksort
no sort "stable"; # stability not wanted
my $current;
- BEGIN { $current = print sort::current; }
+ BEGIN { $current = sort::current; }
print "$current\n";
@a = sort @b;
# Pragmas go out of scope at the end of the block
}
{ use sort qw(defaults stable); # force stability
my $current;
- BEGIN { $current = print sort::current; }
+ BEGIN { $current = sort::current; }
print "$current\n";
@c = sort @d;
}