From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 2 Mar 2009 22:35:19 +0000 (+0000)
Subject: add strict/warnings all around to ease debugging
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7ffeba72ddb496bacd95584c1b0eaff452b481f5;p=Evergreen.git

add strict/warnings all around to ease debugging

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12359 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
index 6b7a864300..71be4e5412 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger;
+use strict; use warnings;
 use OpenILS::Application;
 use base qw/OpenILS::Application/;
 
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Cleanup.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Cleanup.pm
index 1b7e18505f..8250eb8c3c 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Cleanup.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Cleanup.pm
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Cleanup;
+use strict; use warnings;
 sub fourty_two { return 42 }
 sub NOOP_True { return 1 }
 sub NOOP_False { return 0 }
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Collector.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Collector.pm
index e0ba462fe1..db650ede98 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Collector.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Collector.pm
@@ -1,3 +1,4 @@
 package OpenILS::Application::Trigger::Collector;
+use strict; use warnings;
 sub fourty_two { return 42 }
 1;
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
index d6781cf94e..8f0a8e8e51 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Event;
+use strict; use warnings;
 use OpenSRF::EX qw/:try/;
 
 use OpenSRF::Utils::Logger qw/:logger/;
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
index 2c792e4bd2..3547b9e4d4 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::EventGroup;
+use strict; use warnings;
 use OpenILS::Application::Trigger::Event;
 use base 'OpenILS::Application::Trigger::Event';
 use OpenSRF::EX qw/:try/;
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm
index e8d416391f..7cab0b1b0e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/ModRunner.pm
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::ModLoader;
+use strict; use warnings;
 use UNIVERSAL::require;
 
 sub prefix { return 'OpenILS::Application::Trigger' }
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
index 54e72ad835..8d8e417c0f 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Reactor;
+use strict; use warnings;
 use Template;
 use OpenSRF::Utils::Logger qw(:logger);
 
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
index 0545e1c48a..a724f20370 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/SendEmail.pm
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Reactor::SendEmail;
+use strict; use warnings;
 use Error qw/:try/;
 use Data::Dumper;
 use Email::Send;
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm
index bd29cad422..289a4441da 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm
@@ -1,4 +1,5 @@
 package OpenILS::Application::Trigger::Reactor::StaticEmail;
+use strict; use warnings;
 use Error qw/:try/;
 use Data::Dumper;
 use Email::Send;