diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2002-04-03 11:18:47 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-03 20:25:55 +0000 |
| commit | be6bd645f6be4d28e5d344c51889c6b67bdf5a74 (patch) | |
| tree | bd408e012fd376856b535a78b237f58679ffb2c8 /lib/sort.t | |
| parent | 384e87d19f97455a7bad80b0a0403c35bbdf9b76 (diff) | |
| download | perl-be6bd645f6be4d28e5d344c51889c6b67bdf5a74.tar.gz | |
Set @INC earlier
Message-ID: <Pine.SOL.4.10.10204031618150.20955-100000@maxwell.phys.lafayette.edu>
p4raw-id: //depot/perl@15717
Diffstat (limited to 'lib/sort.t')
| -rw-r--r-- | lib/sort.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sort.t b/lib/sort.t index dbbf82ed70..c132a5c667 100644 --- a/lib/sort.t +++ b/lib/sort.t @@ -3,9 +3,6 @@ # This tests the behavior of sort() under the different 'use sort' forms. # Algorithm by John P. Linderman. -use strict; -use warnings; - my ($BigWidth, $BigEnough, $RootWidth, $ItemFormat, @TestSizes, $WellSoaked); BEGIN { @@ -25,6 +22,9 @@ BEGIN { } } +use strict; +use warnings; + use Test::More tests => @TestSizes * 2 # sort() tests * 4 # number of pragmas to test + 1 # extra test for qsort instability |