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 c88efe87513ff6fd18f64e33f14ee9978a45822d..cba9e2244760c2675f4979fad1c42d2a04d15696 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 d256af947cbf1e4410851aedb5d8900125acdfcc..695a766d3ca2131143adb5367298d4053a72aded 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 e418fa28fff78e7f3c3281898f164eb9c443dabe..8008f25cac4137e391db24bc115d44c4cb61b93c 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 297abd2f3a172670aa5e5d2444c5408091296167..ee132035e82906a9ca80ff4c484a3f1b27ca0262 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 c928830eaec4f3a7b6d4002d7d77701628d526ea..519ab79d845469da9ae8d1a97f7734407122a575 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 e30f1b0d35d68384c676cd4d3ee775a8f39ebc6d..cdf43d3392afd4db84f34f5bb4c0794a0fc5a6e0 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 aa9a9a8618e6d7d733e64f965f6d63d60a9075b7..16127500efb89b0b9d038da095d53e52e29edd6d 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 5755e1a47f3c01970ee29efc3cd143f39c80933f..7c2dbf763c21c4f99fd41e73b03434a1269710aa 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 89f3b721ca48fe4d32335ab0c4fbd3d6865ac4bc..5e39df1c1f8f62d7fad74b0dce1f67687d1fef48 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;