[open-ils-commits] r19406 - trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2011-02-08 01:20:36 -0500 (Tue, 08 Feb 2011)
New Revision: 19406

Modified:
   trunk/Open-ILS/src/perlmods/lib/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: trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/authority.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/authority.pm	2011-02-08 06:13:05 UTC (rev 19405)
+++ trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/authority.pm	2011-02-08 06:20:36 UTC (rev 19406)
@@ -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,