Remove syntax error from O:A:Storage:Publisher:authority and add strict pragma

Came across a line of dead code while debugging a related problem, and
noticed that strict/warnings wasn't in place, so I culled the dead code
and added use strict/use warnings accordingly (now that we no longer
have the syntax error caused by the dead code).

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

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/authority.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/authority.pm
index f21530f..58cbc01 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/authority.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/authority.pm
@@ -1,3 +1,6 @@
+use strict;
+use warnings;
+
 package OpenILS::Application::Storage::Publisher::authority;
 use base qw/OpenILS::Application::Storage::Publisher/;
 use vars qw/$VERSION/;
@@ -36,8 +39,6 @@ sub validate_tag {
                        my $sf = $$search{subfield};
                        my $term = naco_normalize($$search{term}, $sf);
 
-                       $tag = [$tag] if (!ref($tag));
-
                        push @values, $t, $sf, $term;
 
                        push @selects,