[open-ils-commits] r19407 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2011-02-08 01:21:18 -0500 (Tue, 08 Feb 2011)
New Revision: 19407

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/authority.pm
Log:
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).


Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/authority.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/authority.pm	2011-02-08 06:20:36 UTC (rev 19406)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/authority.pm	2011-02-08 06:21:18 UTC (rev 19407)
@@ -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 @@
 			my $sf = $$search{subfield};
 			my $term = naco_normalize($$search{term}, $sf);
 
-			$tag = [$tag] if (!ref($tag));
-
 			push @values, $t, $sf, $term;
 
 			push @selects,