Keine Default Exporte mehr in den main:: space

Ich hoffe ich habe alle erwischt. Dieser Commit, macht folgendes:

Exports in den main:: space passieren immer, wenn ein bin/mozilla/
script ein Modul einbindet, das @EXPORT setzt.

Laut meiner ack/grep Magie sind das SL::MoreCommon und SL::Helper::Flash
gewesen.

In beiden Fällen waren das importe, wo die eigentlichen Funktionen
vorher im main:: space gelegen haben und dann nachträglich in ein Modul
verschoben wurden.

Ich habe also:

1. Im script selber die Exportliste exakt auf die Funktionen gesetzt die
das script selber benutzt, gefunden mit dem oneliner:

 perl -MSL::Helper::Flash -nle 'my $re = join "|", \
       @SL::Helper::Flash::EXPORT; print $1 if /($re)/' bin/mozilla/dn.pl \
       | sort | uniq

Das waren in Flash: flash und in MoreCommon: save_form und restore_form.

2. Für den Fall, dass andere scripte im main:: Space diese Funktionen
benutzen alle anderen bin/mozilla Scripte nach diesen Funktionen
durchsucht, und für den Fall dass sie _nicht_ selber ein require
b/m/common.pl machen die entsprechenden imports hinzugefügt.

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index c88efe8..cba9e22 100644 (file)
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -13,8 +13,7 @@ use SL::Common;
 use SL::DB::Helper::Mappings;
 use SL::DBUtils qw(do_query);
 use SL::Form;
-use SL::MoreCommon;
-use SL::Helper::Flash;
+use SL::MoreCommon qw(restore_form save_form);
 
 use strict;
 

diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index d256af9..695a766 100644 (file)
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -54,7 +54,6 @@ use SL::Request qw(flatten);
 use SL::DB::Business;
 use SL::DB::Default;
 use SL::DB::DeliveryTerm;
-use SL::Helper::Flash;
 use SL::ReportGenerator;
 use SL::MoreCommon qw(uri_encode);
 

diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl
index e418fa2..8008f25 100644 (file)
--- a/bin/mozilla/dn.pl
+++ b/bin/mozilla/dn.pl
@@ -37,7 +37,7 @@ use SL::IS;
 use SL::PE;
 use SL::DN;
 use SL::DB::Dunning;
-use SL::Helper::Flash;
+use SL::Helper::Flash qw(flash);
 use SL::Locale::String qw(t8);
 use SL::ReportGenerator;
 

diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl
index 297abd2..ee13203 100644 (file)
--- a/bin/mozilla/do.pl
+++ b/bin/mozilla/do.pl
@@ -40,7 +40,7 @@ use SL::DB::DeliveryOrder;
 use SL::DO;
 use SL::IR;
 use SL::IS;
-use SL::MoreCommon qw(ary_diff);
+use SL::MoreCommon qw(ary_diff restore_form save_form);
 use SL::ReportGenerator;
 use SL::WH;
 use Sort::Naturally ();

diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl
index c928830..519ab79 100644 (file)
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -38,7 +38,7 @@ use List::MoreUtils qw(any);
 use SL::AM;
 use SL::CVar;
 use SL::IC;
-use SL::Helper::Flash;
+use SL::Helper::Flash qw(flash);
 use SL::HTML::Util;
 use SL::ReportGenerator;
 

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index e30f1b0..cdf43d3 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -57,7 +57,7 @@ use SL::DB::Language;
 use SL::DB::Printer;
 use SL::DB::Vendor;
 use SL::Helper::CreatePDF;
-use SL::Helper::Flash;
+use SL::Helper::Flash qw(flash);
 
 require "bin/mozilla/common.pl";
 

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index aa9a9a8..1612750 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -35,6 +35,7 @@ use SL::FU;
 use SL::IS;
 use SL::PE;
 use SL::OE;
+use SL::MoreCommon qw(restore_form save_form);
 use Data::Dumper;
 use DateTime;
 use List::MoreUtils qw(uniq);

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 5755e1a..7c2dbf7 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -41,7 +41,7 @@ use SL::FU;
 use SL::OE;
 use SL::IR;
 use SL::IS;
-use SL::MoreCommon qw(ary_diff);
+use SL::MoreCommon qw(ary_diff restore_form save_form);
 use SL::PE;
 use SL::ReportGenerator;
 use List::MoreUtils qw(uniq any none);

diff --git a/bin/mozilla/reportgenerator.pl b/bin/mozilla/reportgenerator.pl
index 89f3b72..5e39df1 100644 (file)
--- a/bin/mozilla/reportgenerator.pl
+++ b/bin/mozilla/reportgenerator.pl
@@ -13,7 +13,7 @@ use List::Util qw(max);
 
 use SL::Form;
 use SL::Common;
-use SL::MoreCommon;
+use SL::MoreCommon qw(restore_form save_form);
 use SL::ReportGenerator;
 
 use strict;