You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
493 B
21 lines
493 B
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;
|
|
}
|