diff -up Locale-US-1.2/US.pm.orig Locale-US-1.2/US.pm
--- Locale-US-1.2/US.pm.orig 2007-07-17 01:06:51.000000000 +0200
+++ Locale-US-1.2/US.pm 2011-01-27 06:19:26.000000000 +0100
@@ -36,6 +36,7 @@ sub new {
my $class = shift;
my $self = {} ;
+ my $start_pos = tell( DATA );
while ( <DATA>) {
chomp;
@@ -46,6 +47,8 @@ sub new {
$self->{state2code}{$state} = $code;
}
+ seek( DATA, $start_pos, 0 );
+
# warn Dumper $self;
bless $self, $class;
}