Indirekte Objektnotation fixen

diff --git a/SL/Form.pm b/SL/Form.pm
index 583a0a1db67339cb8c8511ff01d607cce9cc41c0..b0433bdddb7bf48f4d32c1f8f70d0dfcb47ed6e5 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 764a84d71192b8c5be97301084986eac53c6bed6..6b72eeeb07ad53661fc1506fae673ee133271dfc 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 869177b0c184f19978eff97e77a96da551674951..fdffa64f08e077d0e945e27b5e2d574947657ce1 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 febe26776fa6e98eb4003f4367296b64e233ac10..a050e746a014c503da1d294ab9d9337ab59868f9 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 a83f7718082ced86e42c65d66d04669604cb9e09..5f23c8ea87c089e7adbf9725c39d14d18c10bc34 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 5984c859a403217c36a85e41df2e7ba5eb6c3fd6..c3242ec294a9e115dd11d16ef50bc7d28382c8d4 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}";