diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/I18N/LangTags.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/I18N/LangTags.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/I18N/LangTags.pm b/Master/tlpkg/tlperl/lib/I18N/LangTags.pm index 9bac7077e70..c4d9ceab3d6 100644 --- a/Master/tlpkg/tlperl/lib/I18N/LangTags.pm +++ b/Master/tlpkg/tlperl/lib/I18N/LangTags.pm @@ -19,7 +19,7 @@ require Exporter; ); %EXPORT_TAGS = ('ALL' => \@EXPORT_OK); -$VERSION = "0.40"; +$VERSION = "0.42"; sub uniq { my %seen; return grep(!($seen{$_}++), @_); } # a util function @@ -460,7 +460,7 @@ interaction looks like: So far so good. But suppose the way you're implementing this is: my %greetings; - die unless open(IN, "<in.dat"); + die unless open(IN, "<", "in.dat"); while(<IN>) { chomp; next unless /^([^=]+)=(.+)/s; @@ -502,7 +502,7 @@ program with: use I18N::LangTags qw(encode_language_tag); my %greetings; - die unless open(IN, "<in.dat"); + die unless open(IN, "<", "in.dat"); while(<IN>) { chomp; next unless /^([^=]+)=(.+)/s; |