[open-ils-commits] r8126 - trunk/Open-ILS/src/support-scripts

[svn at svn.open-ils.org]

Author: dbs
Date: 2007-12-01 22:59:49 -0500 (Sat, 01 Dec 2007)
New Revision: 8126

Modified:
   trunk/Open-ILS/src/support-scripts/settings-tester.pl
Log:
Enable strict throughout, clean up one more warning


Modified: trunk/Open-ILS/src/support-scripts/settings-tester.pl
===================================================================
--- trunk/Open-ILS/src/support-scripts/settings-tester.pl	2007-12-02 02:54:41 UTC (rev 8125)
+++ trunk/Open-ILS/src/support-scripts/settings-tester.pl	2007-12-02 03:59:49 UTC (rev 8126)
@@ -37,10 +37,11 @@
 
 	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) {