Fix xslt_process() to ensure that it inserts a NULL terminator after the

[PostgreSQL.git] / 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";