Argumente von open() definitiv auf den richtigen Pfad beschränken.
authorMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 11 May 2007 11:46:02 +0000 (11:46 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 11 May 2007 11:46:02 +0000 (11:46 +0000)
SL/Locale.pm

index e941f00..a6756fe 100644 (file)
@@ -47,10 +47,14 @@ sub new {
   my ($type, $country, $NLS_file) = @_;
   my $self = {};
 
+  $country  =~ s|.*/||;
+  $country  =~ s|\.||g;
+  $NLS_file =~ s|.*/||;
+
   if ($country && -d "locale/$country") {
     local *IN;
     $self->{countrycode} = $country;
-    if (open(IN, "locale/$country/$NLS_file")) {
+    if (open(IN, "<", "locale/$country/$NLS_file")) {
       my $code = join("", <IN>);
       eval($code);
       close(IN);