Filehandles als lokal deklarieren; Kosmetik; Argumente für open() nicht aus $form...

diff --git a/SL/Inifile.pm b/SL/Inifile.pm
index 8ec3e80..eae4f49 100644 (file)
--- a/SL/Inifile.pm
+++ b/SL/Inifile.pm
@@ -43,6 +43,8 @@ sub new {
   my $id = "";
   my $skip;
 
+  local *FH;
+
   $type = ref($self) || $self;
 
   open FH, "$file" or Form->error("$file : $!");

diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl
index 3da92a9..fe2c731 100644 (file)
--- a/bin/mozilla/menu.pl
+++ b/bin/mozilla/menu.pl
@@ -72,9 +72,6 @@ sub acc_menu {
   $mainlevel = $form->{level};
   $mainlevel =~ s/$mainlevel--//g;
   my $menu = new Menu "$menufile";
-  $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
-  $menu = new Menu "$form->{login}_$menufile"
-    if (-f "$form->{login}_$menufile");
 
   $form->{title} = $locale->text('Accounting Menu');
 

diff --git a/bin/mozilla/menunew.pl b/bin/mozilla/menunew.pl
index b0b46e8..be65221 100644 (file)
--- a/bin/mozilla/menunew.pl
+++ b/bin/mozilla/menunew.pl
@@ -126,9 +126,6 @@ sub acc_menu {
   $mainlevel = $form->{level};
   $mainlevel =~ s/$mainlevel--//g;
   my $menu = new Menu "$menufile";
-  $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
-  $menu = new Menu "$form->{login}_$menufile"
-    if (-f "$form->{login}_$menufile");
 
   $| = 1;
 

diff --git a/bin/mozilla/menuv3.pl b/bin/mozilla/menuv3.pl
index c9a3d54..4ad56bd 100644 (file)
--- a/bin/mozilla/menuv3.pl
+++ b/bin/mozilla/menuv3.pl
@@ -133,9 +133,6 @@ sub acc_menu {
   $mainlevel = $form->{level};
   $mainlevel =~ s/$mainlevel--//g;
   my $menu = new Menu "$menufile";
-  $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
-  $menu = new Menu "$form->{login}_$menufile"
-    if (-f "$form->{login}_$menufile");
 
   $| = 1;