#!/usr/bin/perl
+BEGIN {
+ push @INC, './lib';
+}
use strict ;
sub DEFAULT_ON () { 1 }
my @list = () ;
my ($k, $v) ;
- while (($k, $v) = each %$tre) {
-
+ foreach $k (sort keys %$tre) {
+ $v = $tre->{$k};
die "duplicate key $k\n" if defined $list{$k} ;
$Value{$index} = uc $k ;
push @{ $list{$k} }, $index ++ ;
}
return @list ;
-
}
###########################################################################
=head1 NAME
-warning - Perl pragma to control
+warning - Perl pragma to control optional warnings
=head1 SYNOPSIS