diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-30 19:03:34 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-30 19:03:34 +0000 |
| commit | 045ac3170cd33a7002e5d26e4859e94ca400926d (patch) | |
| tree | bf481b2a683c7ccbf658d60a50623597b094923e /lib/sort.t | |
| parent | e8c86ba6ca66f86dc4c8f4de0abf70f53c2484f4 (diff) | |
| download | perl-045ac3170cd33a7002e5d26e4859e94ca400926d.tar.gz | |
Fix bug id 20020427.004 on %^H.
Add a regression test for %^H.
Change the sort pragma implementation to use a
global variable instead of %^H.
p4raw-id: //depot/perl@16286
Diffstat (limited to 'lib/sort.t')
| -rw-r--r-- | lib/sort.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/sort.t b/lib/sort.t index fbeaacfb5f..990376576b 100644 --- a/lib/sort.t +++ b/lib/sort.t @@ -136,9 +136,8 @@ main(0); # XXX We're using this eval "..." trick to force recompilation, # to ensure that the correct pragma is enabled when main() is run. -# Currently 'use sort' modifies $^H{SORT} at compile-time, but -# pp_sort() fetches its value at run-time : thus the lexical scoping -# of %^H is of no utility. +# Currently 'use sort' modifies $sort::hints at compile-time, but +# pp_sort() fetches its value at run-time. # The order of those evals is important. eval q{ |