Indirekte Objektnotation fixen

diff --git a/SL/Form.pm b/SL/Form.pm
index 583a0a1..b0433bd 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1125,7 +1125,7 @@ sub parse_template {
 
   if ($self->{media} eq 'email') {
 
-    my $mail = new Mailer;
+    my $mail = Mailer->new;
 
     map { $mail->{$_} = $self->{$_} }
       qw(cc bcc subject message version format);

diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl
index 764a84d..6b72eee 100644 (file)
--- a/bin/mozilla/do.pl
+++ b/bin/mozilla/do.pl
@@ -828,7 +828,7 @@ sub invoice {
   $form->{type} = "invoice";
 
   # locale messages
-  $main::locale = new Locale "$myconfig{countrycode}", "$script";
+  $main::locale = Locale->new("$myconfig{countrycode}", "$script");
   $locale = $main::locale;
 
   require "bin/mozilla/$form->{script}";
@@ -975,7 +975,7 @@ sub invoice_multi {
   }
   delete $form->{form_details};
 
-  $locale = new Locale "$myconfig{countrycode}", "$script";
+  $locale = Locale->new("$myconfig{countrycode}", "$script");
 
   require "bin/mozilla/$form->{script}";
 

diff --git a/bin/mozilla/installationcheck.pl b/bin/mozilla/installationcheck.pl
index 869177b..fdffa64 100644 (file)
--- a/bin/mozilla/installationcheck.pl
+++ b/bin/mozilla/installationcheck.pl
@@ -17,7 +17,7 @@ sub verify_installation {
 
   use SL::Locale;
 
-  my $locale = new Locale($::lx_office_conf{system}->{language}, "installationcheck");
+  my $locale = Locale->new($::lx_office_conf{system}->{language}, "installationcheck");
 
   print(qq|content-type: text/html
 

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index febe267..a050e74 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -918,7 +918,7 @@ sub order {
   my $script = $form->{"script"};
   $script =~ s|.*/||;
   $script =~ s|.pl$||;
-  $locale = new Locale($::lx_office_conf{system}->{language}, $script);
+  $locale = Locale->new($::lx_office_conf{system}->{language}, $script);
 
   map { $form->{"select$_"} = "" } ($form->{vc}, "currency");
 
@@ -1247,7 +1247,7 @@ sub print {
     $form->error($locale->text('Select postscript or PDF!'))
       if ($form->{format} !~ /(postscript|pdf)/);
 
-    $old_form = new Form;
+    $old_form = Form->new;
     map { $old_form->{$_} = $form->{$_} } keys %$form;
   }
 

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index a83f771..5f23c8e 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -842,7 +842,7 @@ sub print_and_post {
 
   $main::auth->assert('invoice_edit');
 
-  my $old_form                    = new Form;
+  my $old_form                    = Form->new;
   $form->{no_redirect_after_post} = 1;
   $form->{print_and_post}         = 1;
   &post();
@@ -933,7 +933,7 @@ sub preview {
   $main::auth->assert('invoice_edit');
 
   $form->{preview} = 1;
-  my $old_form = new Form;
+  my $old_form = Form->new;
   for (keys %$form) { $old_form->{$_} = $form->{$_} }
 
   &print_form($old_form);

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 5984c85..c3242ec 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -1502,7 +1502,7 @@ sub invoice {
   $form->{type} = "invoice";
 
   # locale messages
-  $main::locale = new Locale "$myconfig{countrycode}", "$script";
+  $main::locale = Locale->new("$myconfig{countrycode}", "$script");
   $locale = $main::locale;
 
   require "bin/mozilla/$form->{script}";