Disable strict refs (really)
authordbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 1 Dec 2007 19:51:56 +0000 (19:51 +0000)
committerdbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sat, 1 Dec 2007 19:51:56 +0000 (19:51 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@8122 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/support-scripts/settings-tester.pl

index e82579d..23bdc42 100755 (executable)
@@ -38,8 +38,8 @@ while (my $mod = <DATA>) {
        my $ok = 0;
        for my $m (@list) {
                $ok++ if ($m->use);
-               # Enable strict refs for now
-               no strict;
+               # Disable strict refs for now
+               no strict 'refs';
                print "$m version ".${$m."::VERSION"}."\n" unless ($@);
        }