SL/Dev: strict

diff --git a/SL/Dev/CustomerVendor.pm b/SL/Dev/CustomerVendor.pm
index 3a8fa86005add023cc66428c2d2fd9271ce8741f..4a59662b09406d5aa30166abb209a94c60a5f0e3 100644 (file)
--- a/SL/Dev/CustomerVendor.pm
+++ b/SL/Dev/CustomerVendor.pm
@@ -1,7 +1,8 @@
 package SL::Dev::CustomerVendor;
 
+use strict;
 use base qw(Exporter);
-@EXPORT = qw(create_customer);
+our @EXPORT = qw(create_customer);
 
 use SL::DB::TaxZone;
 use SL::DB::Currency;

diff --git a/SL/Dev/Inventory.pm b/SL/Dev/Inventory.pm
index 2ea6a501094207f3b8328b297a4398369998834c..72b8d7661f8c7192fbb470bf6eae3f10ea9c00f3 100644 (file)
--- a/SL/Dev/Inventory.pm
+++ b/SL/Dev/Inventory.pm
@@ -1,7 +1,8 @@
 package SL::Dev::Inventory;
 
+use strict;
 use base qw(Exporter);
-@EXPORT = qw(create_warehouse_and_bins set_stock);
+our @EXPORT = qw(create_warehouse_and_bins set_stock);
 
 use SL::DB::Warehouse;
 use SL::DB::Bin;

diff --git a/SL/Dev/Part.pm b/SL/Dev/Part.pm
index 29751d68144afc8aabe9df16eecce7cee77c6010..d2b8d4e48fdc6c4ea309e1c48b4744755ce4b0ec 100644 (file)
--- a/SL/Dev/Part.pm
+++ b/SL/Dev/Part.pm
@@ -1,7 +1,8 @@
 package SL::Dev::Part;
 
+use strict;
 use base qw(Exporter);
-@EXPORT = qw(create_part create_service);
+our @EXPORT = qw(create_part create_service);
 
 use SL::DB::Part;
 use SL::DB::Unit;