postgresql/src/test/locale/sort-test.pl

#! /usr/bin/perl
use locale;

open(INFILE, "<$ARGV[0]");
chop(my(@words) = <INFILE>);
close(INFILE);

$"="\n";
my(@result) = sort @words;

print "@result\n";
Change #! /usr/local/bin/perl -w to #! /usr/bin/perl The path is probably more portable, and the -w was kind of silly for a six line script that produces two warnings as it stands. 2001-01-19 20:06:48 +01:00			`#! /usr/bin/perl`
Hello! Attached to the mail is locale-patch.tar.gz. In the archive there are: file README.locale short description directory src/test/locale test suite; currently only koi8-r tests, but the suite can be easily extended file locale.patch the very patch; to apply: patch < locale.patch; should be applied to postgres-6.3.2 (at least I created it with 6.3.2 without any additional patches) Files touched by the patch: src/include/utils/builtins.h src/backend/utils/adt/char.c src/backend/utils/adt/varchar.c src/backend/utils/adt/varlena.c Oleg 1998-06-16 08:42:02 +02:00			`use locale;`

			`open(INFILE, "<$ARGV[0]");`
			`chop(my(@words) = <INFILE>);`
			`close(INFILE);`

			`$"="\n";`
			`my(@result) = sort @words;`

			`print "@result\n";`