From 3ca20fc826e36098aab3e28733236fe3780690b4 Mon Sep 17 00:00:00 2001
From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sun, 2 Dec 2007 03:59:49 +0000
Subject: [PATCH] Enable strict throughout, clean up one more warning

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8126 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/support-scripts/settings-tester.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Open-ILS/src/support-scripts/settings-tester.pl b/Open-ILS/src/support-scripts/settings-tester.pl
index 23bdc42b4a..aa7c02ccda 100755
--- a/Open-ILS/src/support-scripts/settings-tester.pl
+++ b/Open-ILS/src/support-scripts/settings-tester.pl
@@ -37,10 +37,11 @@ while (my $mod = <DATA>) {
 
 	my $ok = 0;
 	for my $m (@list) {
-		$ok++ if ($m->use);
-		# Disable strict refs for now
-		no strict 'refs';
-		print "$m version ".${$m."::VERSION"}."\n" unless ($@);
+		if ($m->use) {
+			$ok++;
+			my $version = $m->VERSION;
+			print "$m version $version\n" if ($version);
+		}
 	}
 
 	unless ($ok) {
-- 
2.11.0