Enable strict throughout, clean up one more warning

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

diff --git a/Open-ILS/src/support-scripts/settings-tester.pl b/Open-ILS/src/support-scripts/settings-tester.pl
index 23bdc42..aa7c02c 100755 (executable)
--- 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) {