From 165bc20450999ffaaf0dd6f17b7eba5d8d04e017 Mon Sep 17 00:00:00 2001 From: dbs Date: Tue, 8 Feb 2011 06:20:36 +0000 Subject: [PATCH] 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 --- .../perlmods/lib/OpenILS/Application/Storage/Publisher/authority.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 f21530f74..58cbc011e 100644 --- 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, -- 2.11.0