Und wieder ein Schwung strict.

[mfinanz.git] / SL / MoreCommon.pm

diff --git a/SL/MoreCommon.pm b/SL/MoreCommon.pm
index 6c292bab8446165cd0e8c3693c3d334e4f435e9a..48eef0cf93eca60a4a6b62f28c2aa93c88b25394 100644 (file)
--- a/SL/MoreCommon.pm
+++ b/SL/MoreCommon.pm
@@ -1,15 +1,17 @@
 package SL::MoreCommon;
 
 require Exporter;
 package SL::MoreCommon;
 
 require Exporter;

-@ISA = qw(Exporter);
+our @ISA = qw(Exporter);

 
 

-@EXPORT    = qw(save_form restore_form compare_numbers any cross);
-@EXPORT_OK = qw(ary_union ary_intersect ary_diff listify);
+our @EXPORT    = qw(save_form restore_form compare_numbers any cross);
+our @EXPORT_OK = qw(ary_union ary_intersect ary_diff listify);

 
 use YAML;
 
 use SL::AM;
 
 
 use YAML;
 
 use SL::AM;
 

+use strict;
+

 sub save_form {
   $main::lxdebug->enter_sub();
 
 sub save_form {
   $main::lxdebug->enter_sub();