Bug 16011: $VERSION - remove use vars $VERSION

perl -p -i -e 's/^(use vars .*)\$VERSION\s?(.*)/$1$2/' **/*.pm

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar>
Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 4f5f8d4..b10ae89 100644 (file)
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -28,7 +28,7 @@ use C4::Log qw(logaction);
 
 use Data::Dumper qw(Dumper);
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index d878201..4ec7eab 100644 (file)
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -41,7 +41,7 @@ use MARC::Record;
 use Time::localtime;
 use HTML::Entities;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     # set the version for version checking

diff --git a/C4/Auth.pm b/C4/Auth.pm
index 332b8c6..ff5eb0d 100644 (file)
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -40,7 +40,7 @@ use List::MoreUtils qw/ any /;
 use Encode qw( encode is_utf8);
 
 # use utf8;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login);
 
 BEGIN {
     sub psgi_env { any { /^psgi\./ } keys %ENV }

diff --git a/C4/Auth_with_cas.pm b/C4/Auth_with_cas.pm
index 1749333..884a547 100644 (file)
--- a/C4/Auth_with_cas.pm
+++ b/C4/Auth_with_cas.pm
@@ -28,7 +28,7 @@ use FindBin;
 use YAML;
 
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
 
 BEGIN {
        require Exporter;

diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm
index 775f779..00304b7 100644 (file)
--- a/C4/Auth_with_ldap.pm
+++ b/C4/Auth_with_ldap.pm
@@ -33,7 +33,7 @@ use List::MoreUtils qw( any );
 use Net::LDAP;
 use Net::LDAP::Filter;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
 
 BEGIN {
        require Exporter;

diff --git a/C4/Auth_with_shibboleth.pm b/C4/Auth_with_shibboleth.pm
index 6c53c79..bbf556e 100644 (file)
--- a/C4/Auth_with_shibboleth.pm
+++ b/C4/Auth_with_shibboleth.pm
@@ -25,7 +25,7 @@ use Koha::Database;
 use Carp;
 use CGI;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
 
 BEGIN {
     require Exporter;

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index a88d4fa..430e31e 100644 (file)
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -30,7 +30,7 @@ use Koha::MetadataRecord::Authority;
 use Koha::Authorities;
 use Koha::Authority::Types;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/BackgroundJob.pm b/C4/BackgroundJob.pm
index 477ea64..f7dfe88 100644 (file)
--- a/C4/BackgroundJob.pm
+++ b/C4/BackgroundJob.pm
@@ -24,7 +24,7 @@ use C4::Context;
 use C4::Auth qw/get_session/;
 use Digest::MD5;
 
-use vars qw($VERSION);
+use vars qw();
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/Barcodes.pm b/C4/Barcodes.pm
index 35c5d6a..20b564d 100644 (file)
--- a/C4/Barcodes.pm
+++ b/C4/Barcodes.pm
@@ -29,7 +29,7 @@ use C4::Barcodes::annual;
 use C4::Barcodes::incremental;
 use C4::Barcodes::EAN13;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 use vars qw($debug $cgi_debug);        # from C4::Debug, of course
 use vars qw($max $prefformat);
 

diff --git a/C4/Barcodes/EAN13.pm b/C4/Barcodes/EAN13.pm
index 1ac1b42..30c03c4 100644 (file)
--- a/C4/Barcodes/EAN13.pm
+++ b/C4/Barcodes/EAN13.pm
@@ -26,7 +26,7 @@ use C4::Debug;
 use Algorithm::CheckDigits;
 use Carp;
 
-use vars qw($VERSION @ISA);
+use vars qw(@ISA);
 use vars qw($debug $cgi_debug);        # from C4::Debug, of course
 
 BEGIN {

diff --git a/C4/Barcodes/annual.pm b/C4/Barcodes/annual.pm
index c2e8d0b..b674920 100644 (file)
--- a/C4/Barcodes/annual.pm
+++ b/C4/Barcodes/annual.pm
@@ -27,7 +27,7 @@ use C4::Debug;
 
 use Koha::DateUtils qw( output_pref dt_from_string );
 
-use vars qw($VERSION @ISA);
+use vars qw(@ISA);
 use vars qw($debug $cgi_debug);        # from C4::Debug, of course
 use vars qw($width);
 

diff --git a/C4/Barcodes/hbyymmincr.pm b/C4/Barcodes/hbyymmincr.pm
index b60038e..6716778 100644 (file)
--- a/C4/Barcodes/hbyymmincr.pm
+++ b/C4/Barcodes/hbyymmincr.pm
@@ -27,7 +27,7 @@ use C4::Debug;
 
 use Koha::DateUtils qw( dt_from_string output_pref );
 
-use vars qw($VERSION @ISA);
+use vars qw(@ISA);
 use vars qw($debug $cgi_debug);        # from C4::Debug, of course
 use vars qw($branch $width);
 

diff --git a/C4/Barcodes/incremental.pm b/C4/Barcodes/incremental.pm
index 70cd40a..f5a0990 100644 (file)
--- a/C4/Barcodes/incremental.pm
+++ b/C4/Barcodes/incremental.pm
@@ -20,7 +20,7 @@ package C4::Barcodes::incremental;
 use strict;
 use warnings;
 
-use vars qw($VERSION @ISA);
+use vars qw(@ISA);
 
 BEGIN {
     $VERSION = 3.07.00.049;

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index fa1bb4c..fe60efa 100644 (file)
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -42,7 +42,7 @@ use Koha::Cache;
 use Koha::Authority::Types;
 use Koha::Acquisition::Currencies;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     $VERSION = 3.07.00.049;

diff --git a/C4/Branch.pm b/C4/Branch.pm
index 9f82638..c1ea659 100644 (file)
--- a/C4/Branch.pm
+++ b/C4/Branch.pm
@@ -22,7 +22,7 @@ require Exporter;
 use C4::Context;
 use Koha::LibraryCategories;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/Breeding.pm b/C4/Breeding.pm
index 18bf03b..d9d5642 100644 (file)
--- a/C4/Breeding.pm
+++ b/C4/Breeding.pm
@@ -31,7 +31,7 @@ use C4::Languages;
 use Koha::Database;
 use Koha::XSLT_Handler;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 9c50bda..76876fe 100644 (file)
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -22,7 +22,7 @@ use strict;
 use C4::Context;
 use Koha::Database;
 use C4::Debug;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/Calendar.pm b/C4/Calendar.pm
index 99b0c3a..852bdd7 100644 (file)
--- a/C4/Calendar.pm
+++ b/C4/Calendar.pm
@@ -17,7 +17,7 @@ package C4::Calendar;
 
 use strict;
 use warnings;
-use vars qw($VERSION @EXPORT);
+use vars qw(@EXPORT);
 
 use Carp;
 use Date::Calc qw( Date_to_Days Today);

diff --git a/C4/Charset.pm b/C4/Charset.pm
index cd7a61f..86b8c15 100644 (file)
--- a/C4/Charset.pm
+++ b/C4/Charset.pm
@@ -26,7 +26,7 @@ use C4::Debug;
 use Unicode::Normalize;
 use Encode qw( decode encode is_utf8 );
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
     # set the version for version checking

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index a1d7815..6891101 100644 (file)
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -64,7 +64,7 @@ use Date::Calc qw(
   Day_of_Week
   Add_Delta_Days
 );
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
        require Exporter;

diff --git a/C4/ClassSortRoutine.pm b/C4/ClassSortRoutine.pm
index 2c345ba..8ca2ee4 100644 (file)
--- a/C4/ClassSortRoutine.pm
+++ b/C4/ClassSortRoutine.pm
@@ -24,7 +24,7 @@ require Exporter;
 use Class::Factory::Util;
 use C4::Context;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
 $VERSION = 3.07.00.049;

diff --git a/C4/ClassSortRoutine/Dewey.pm b/C4/ClassSortRoutine/Dewey.pm
index 89262c3..9578244 100644 (file)
--- a/C4/ClassSortRoutine/Dewey.pm
+++ b/C4/ClassSortRoutine/Dewey.pm
@@ -20,7 +20,7 @@ package C4::ClassSortRoutine::Dewey;
 use strict;
 use warnings;
 
-use vars qw($VERSION);
+use vars qw();
 
 # set the version for version checking
 $VERSION = 3.07.00.049;

diff --git a/C4/ClassSortRoutine/Generic.pm b/C4/ClassSortRoutine/Generic.pm
index 1e19560..ef4e13b 100644 (file)
--- a/C4/ClassSortRoutine/Generic.pm
+++ b/C4/ClassSortRoutine/Generic.pm
@@ -20,7 +20,7 @@ package C4::ClassSortRoutine::Generic;
 use strict;
 use warnings;
 
-use vars qw($VERSION);
+use vars qw();
 
 # set the version for version checking
 $VERSION = 3.07.00.049;

diff --git a/C4/ClassSortRoutine/LCC.pm b/C4/ClassSortRoutine/LCC.pm
index eb5e3eb..1fe652d 100644 (file)
--- a/C4/ClassSortRoutine/LCC.pm
+++ b/C4/ClassSortRoutine/LCC.pm
@@ -22,7 +22,7 @@ use strict;
 use warnings;
 use Library::CallNumber::LC;
 
-use vars qw($VERSION);
+use vars qw();
 
 # set the version for version checking
 $VERSION = 3.07.00.049;

diff --git a/C4/ClassSource.pm b/C4/ClassSource.pm
index 0a8d65b..1130dfb 100644 (file)
--- a/C4/ClassSource.pm
+++ b/C4/ClassSource.pm
@@ -24,7 +24,7 @@ require Exporter;
 use C4::Context;
 use C4::ClassSortRoutine;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
 $VERSION = 3.07.00.049;

diff --git a/C4/Context.pm b/C4/Context.pm
index 405fbf8..34a2926 100644 (file)
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -18,7 +18,7 @@ package C4::Context;
 
 use strict;
 use warnings;
-use vars qw($VERSION $AUTOLOAD $context @context_stack $servers $memcached $ismemcached);
+use vars qw($AUTOLOAD $context @context_stack $servers $memcached $ismemcached);
 BEGIN {
        if ($ENV{'HTTP_USER_AGENT'})    {
                require CGI::Carp;

diff --git a/C4/Contract.pm b/C4/Contract.pm
index 75e437d..b456528 100644 (file)
--- a/C4/Contract.pm
+++ b/C4/Contract.pm
@@ -23,7 +23,7 @@ use strict;
 use C4::Context;
 use Koha::Database;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/CourseReserves.pm b/C4/CourseReserves.pm
index 1e415a7..4215422 100644 (file)
--- a/C4/CourseReserves.pm
+++ b/C4/CourseReserves.pm
@@ -24,7 +24,7 @@ use C4::Items qw(GetItem ModItem);
 use C4::Biblio qw(GetBiblioFromItemNumber);
 use C4::Circulation qw(GetOpenIssue);
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);
 
 BEGIN {
     require Exporter;

diff --git a/C4/Csv.pm b/C4/Csv.pm
index d1166c9..47a9032 100644 (file)
--- a/C4/Csv.pm
+++ b/C4/Csv.pm
@@ -23,7 +23,7 @@ package C4::Csv;
 #use warnings; FIXME - Bug 2505
 
 use C4::Context;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 # set the version for version checking
 $VERSION = 3.07.00.049;

diff --git a/C4/Debug.pm b/C4/Debug.pm
index 6ab2fb4..946245c 100644 (file)
--- a/C4/Debug.pm
+++ b/C4/Debug.pm
@@ -23,7 +23,7 @@ use warnings;
 use Exporter;
 
 # use CGI qw ( -utf8 );
-use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug);
+use vars qw(@ISA @EXPORT $debug $cgi_debug);
 # use vars qw(@EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {

diff --git a/C4/External/Amazon.pm b/C4/External/Amazon.pm
index b2d4bb4..6a44cfa 100644 (file)
--- a/C4/External/Amazon.pm
+++ b/C4/External/Amazon.pm
@@ -21,7 +21,7 @@ package C4::External::Amazon;
 use strict;
 use warnings;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     require Exporter;

diff --git a/C4/External/BakerTaylor.pm b/C4/External/BakerTaylor.pm
index a869ed5..70133f1 100644 (file)
--- a/C4/External/BakerTaylor.pm
+++ b/C4/External/BakerTaylor.pm
@@ -27,7 +27,7 @@ use C4::Debug;
 use strict;
 use warnings;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 use vars qw($user $pass $agent $image_url $link_url);
 
 BEGIN {

diff --git a/C4/External/Syndetics.pm b/C4/External/Syndetics.pm
index a407bcf..db376e5 100644 (file)
--- a/C4/External/Syndetics.pm
+++ b/C4/External/Syndetics.pm
@@ -26,7 +26,7 @@ use HTTP::Request::Common;
 use strict;
 use warnings;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     require Exporter;

diff --git a/C4/HoldsQueue.pm b/C4/HoldsQueue.pm
index 3cfe206..e9562f9 100755 (executable)
--- a/C4/HoldsQueue.pm
+++ b/C4/HoldsQueue.pm
@@ -35,7 +35,7 @@ use List::Util qw(shuffle);
 use List::MoreUtils qw(any);
 use Data::Dumper;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 BEGIN {
     $VERSION = 3.03;
     require Exporter;

diff --git a/C4/Images.pm b/C4/Images.pm
index 936c4df..5d419dc 100644 (file)
--- a/C4/Images.pm
+++ b/C4/Images.pm
@@ -25,7 +25,7 @@ use 5.010;
 use C4::Context;
 use GD;
 
-use vars qw($debug $noimage $VERSION @ISA @EXPORT);
+use vars qw($debug $noimage @ISA @EXPORT);
 
 BEGIN {
 

diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm
index cb1a231..8a69a94 100644 (file)
--- a/C4/ImportBatch.pm
+++ b/C4/ImportBatch.pm
@@ -30,7 +30,7 @@ use C4::MarcModificationTemplates;
 use Koha::Plugins::Handler;
 use Koha::Logger;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/ImportExportFramework.pm b/C4/ImportExportFramework.pm
index f829f0c..2e35a68 100644 (file)
--- a/C4/ImportExportFramework.pm
+++ b/C4/ImportExportFramework.pm
@@ -28,7 +28,7 @@ use C4::Context;
 use C4::Debug;
 
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
     $VERSION = 3.07.00.049;    # set version for version checking

diff --git a/C4/InstallAuth.pm b/C4/InstallAuth.pm
index de304ba..6c229f5 100644 (file)
--- a/C4/InstallAuth.pm
+++ b/C4/InstallAuth.pm
@@ -28,7 +28,7 @@ use C4::Templates;
 use C4::Koha;
 use CGI::Session;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
 $VERSION = 3.00;

diff --git a/C4/Items.pm b/C4/Items.pm
index 9594c98..fdb1c52 100644 (file)
--- a/C4/Items.pm
+++ b/C4/Items.pm
@@ -39,7 +39,7 @@ use Koha::Database;
 
 use Koha::Database;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     $VERSION = 3.07.00.049;

diff --git a/C4/Koha.pm b/C4/Koha.pm
index 6981ebf..7c4bf30 100644 (file)
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -32,7 +32,7 @@ use DateTime::Format::MySQL;
 use Business::ISBN;
 use autouse 'Data::cselectall_arrayref' => qw(Dumper);
 use DBI qw(:sql_types);
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $DEBUG);
+use vars qw(@ISA @EXPORT @EXPORT_OK $DEBUG);
 
 BEGIN {
     $VERSION = 3.07.00.049;

diff --git a/C4/Languages.pm b/C4/Languages.pm
index 95bc114..9031203 100644 (file)
--- a/C4/Languages.pm
+++ b/C4/Languages.pm
@@ -26,7 +26,7 @@ use Carp;
 use CGI;
 use List::MoreUtils qw( any );
 use C4::Context;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
 
 eval {
     if (C4::Context->ismemcached) {

diff --git a/C4/Letters.pm b/C4/Letters.pm
index 0452df2..4d15034 100644 (file)
--- a/C4/Letters.pm
+++ b/C4/Letters.pm
@@ -39,7 +39,7 @@ use Carp;
 use Koha::Email;
 use Koha::DateUtils qw( format_sqldatetime );
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
     require Exporter;

diff --git a/C4/Log.pm b/C4/Log.pm
index d4ff988..696332c 100644 (file)
--- a/C4/Log.pm
+++ b/C4/Log.pm
@@ -27,7 +27,7 @@ use warnings;
 use C4::Context;
 use Koha::DateUtils;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     # set the version for version checking

diff --git a/C4/MarcModificationTemplates.pm b/C4/MarcModificationTemplates.pm
index d72b870..85e6a49 100644 (file)
--- a/C4/MarcModificationTemplates.pm
+++ b/C4/MarcModificationTemplates.pm
@@ -24,7 +24,7 @@ use DateTime;
 use C4::Context;
 use Koha::SimpleMARC;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 use constant DEBUG => 0;
 

diff --git a/C4/Matcher.pm b/C4/Matcher.pm
index 0dd8782..9d8ad69 100644 (file)
--- a/C4/Matcher.pm
+++ b/C4/Matcher.pm
@@ -23,7 +23,7 @@ use warnings;
 use C4::Context;
 use MARC::Record;
 
-use vars qw($VERSION);
+use vars qw();
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/Members/AttributeTypes.pm b/C4/Members/AttributeTypes.pm
index 234e1e0..fb297ca 100644 (file)
--- a/C4/Members/AttributeTypes.pm
+++ b/C4/Members/AttributeTypes.pm
@@ -21,7 +21,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 use C4::Context;
 
-use vars qw($VERSION);
+use vars qw();
 
 BEGIN {
     # set the version for version checking

diff --git a/C4/Members/Attributes.pm b/C4/Members/Attributes.pm
index 2f560c7..0c9b854 100644 (file)
--- a/C4/Members/Attributes.pm
+++ b/C4/Members/Attributes.pm
@@ -24,7 +24,7 @@ use Text::CSV;      # Don't be tempted to use Text::CSV::Unicode -- even in bina
 use C4::Context;
 use C4::Members::AttributeTypes;
 
-use vars qw($VERSION @ISA @EXPORT_OK @EXPORT %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT_OK @EXPORT %EXPORT_TAGS);
 our ($csv, $AttributeTypes);
 
 BEGIN {

diff --git a/C4/Members/Messaging.pm b/C4/Members/Messaging.pm
index 76a3dad..72d942d 100644 (file)
--- a/C4/Members/Messaging.pm
+++ b/C4/Members/Messaging.pm
@@ -21,7 +21,7 @@ use strict;
 use warnings;
 use C4::Context;
 
-use vars qw($VERSION);
+use vars qw();
 
 BEGIN {
     # set the version for version checking

diff --git a/C4/NewsChannels.pm b/C4/NewsChannels.pm
index 4dfde13..0769e50 100644 (file)
--- a/C4/NewsChannels.pm
+++ b/C4/NewsChannels.pm
@@ -22,7 +22,7 @@ use Modern::Perl;
 use C4::Context;
 use Koha::DateUtils;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN { 
     $VERSION = 3.07.00.049;    # set the version for version checking

diff --git a/C4/Output.pm b/C4/Output.pm
index 0a0ae21..b82992b 100644 (file)
--- a/C4/Output.pm
+++ b/C4/Output.pm
@@ -33,7 +33,7 @@ use URI::Escape;
 use C4::Context;
 use C4::Templates;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
     # set the version for version checking

diff --git a/C4/Overdues.pm b/C4/Overdues.pm
index 6c09f43..553d70f 100644 (file)
--- a/C4/Overdues.pm
+++ b/C4/Overdues.pm
@@ -37,7 +37,7 @@ use Koha::DateUtils;
 use Koha::Account::Line;
 use Koha::Account::Lines;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     # set the version for version checking

diff --git a/C4/Print.pm b/C4/Print.pm
index 22623c8..35c5430 100644 (file)
--- a/C4/Print.pm
+++ b/C4/Print.pm
@@ -21,7 +21,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 use C4::Context;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
        # set the version for version checking

diff --git a/C4/Ratings.pm b/C4/Ratings.pm
index f869f69..730b6c4 100644 (file)
--- a/C4/Ratings.pm
+++ b/C4/Ratings.pm
@@ -28,7 +28,7 @@ use C4::Context;
 
 use Koha::Database;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
     $VERSION = 3.07.00.049;

diff --git a/C4/Record.pm b/C4/Record.pm
index 1360155..80ab7e0 100644 (file)
--- a/C4/Record.pm
+++ b/C4/Record.pm
@@ -39,7 +39,7 @@ use Koha::SimpleMARC qw(read_field);
 use Koha::XSLT_Handler;
 use Carp;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 # set the version for version checking
 $VERSION = 3.07.00.049;

diff --git a/C4/Reports.pm b/C4/Reports.pm
index a73830b..0844346 100644 (file)
--- a/C4/Reports.pm
+++ b/C4/Reports.pm
@@ -21,7 +21,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 use CGI qw ( -utf8 );
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 use C4::Context;
 use C4::Debug;
 

diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm
index ffc8afd..5d85ade 100644 (file)
--- a/C4/Reports/Guided.pm
+++ b/C4/Reports/Guided.pm
@@ -21,7 +21,7 @@ use Modern::Perl;
 use CGI qw ( -utf8 );
 use Carp;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 use C4::Context;
 use C4::Templates qw/themelanguage/;
 use C4::Koha;

diff --git a/C4/Reserves.pm b/C4/Reserves.pm
index e0d616b..535c37d 100644 (file)
--- a/C4/Reserves.pm
+++ b/C4/Reserves.pm
@@ -45,7 +45,7 @@ use Koha::Libraries;
 use List::MoreUtils qw( firstidx any );
 use Carp;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 =head1 NAME
 

diff --git a/C4/Review.pm b/C4/Review.pm
index 5c6f45a..2d2a658 100644 (file)
--- a/C4/Review.pm
+++ b/C4/Review.pm
@@ -22,7 +22,7 @@ use warnings;
 
 use C4::Context;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     # set the version for version checking

diff --git a/C4/Ris.pm b/C4/Ris.pm
index 21acd96..e615c96 100644 (file)
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -62,7 +62,7 @@ package C4::Ris;
 use Modern::Perl;
 
 use List::MoreUtils qw/uniq/;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField);
 use Koha::SimpleMARC qw(read_field);

diff --git a/C4/RotatingCollections.pm b/C4/RotatingCollections.pm
index 0562a78..3fc6d66 100644 (file)
--- a/C4/RotatingCollections.pm
+++ b/C4/RotatingCollections.pm
@@ -33,7 +33,7 @@ use DBI;
 
 use Data::Dumper;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 # set the version for version checking
 $VERSION = 3.07.00.049;

diff --git a/C4/SIP/Sip.pm b/C4/SIP/Sip.pm
index 29aa6a2..b6e9e45 100644 (file)
--- a/C4/SIP/Sip.pm
+++ b/C4/SIP/Sip.pm
@@ -16,7 +16,7 @@ use IO::Handle;
 use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG);
 use C4::SIP::Sip::Checksum qw(checksum);
 
-use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
     $VERSION = 3.07.00.049;

diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm
index f43aaa6..5c3c721 100644 (file)
--- a/C4/SIP/Sip/MsgType.pm
+++ b/C4/SIP/Sip/MsgType.pm
@@ -21,7 +21,7 @@ use C4::Auth qw(&check_api_auth);
 
 use UNIVERSAL::can;
 
-use vars qw(@ISA $VERSION @EXPORT_OK);
+use vars qw(@ISA @EXPORT_OK);
 
 use constant INVALID_CARD => 'Invalid cardnumber';
 use constant INVALID_PW   => 'Invalid password';

diff --git a/C4/SIP/t/SIPtest.pm b/C4/SIP/t/SIPtest.pm
index f963382..a9a1ea5 100644 (file)
--- a/C4/SIP/t/SIPtest.pm
+++ b/C4/SIP/t/SIPtest.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Exporter;
-use vars qw(@ISA $VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 use Data::Dumper;
 

diff --git a/C4/SMS.pm b/C4/SMS.pm
index 1cd67b9..e946b45 100644 (file)
--- a/C4/SMS.pm
+++ b/C4/SMS.pm
@@ -37,7 +37,7 @@ use warnings;
 
 use C4::Context;
 
-use vars qw( $VERSION );
+use vars qw( );
 
 BEGIN {
     $VERSION = 3.07.00.049;

diff --git a/C4/Scheduler.pm b/C4/Scheduler.pm
index da89f93..82bfe24 100644 (file)
--- a/C4/Scheduler.pm
+++ b/C4/Scheduler.pm
@@ -20,7 +20,7 @@ package C4::Scheduler;
 use strict;
 #use warnings; FIXME - Bug 2505
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 use C4::Context;
 use Schedule::At;
 

diff --git a/C4/Search.pm b/C4/Search.pm
index fcbb660..a6305de 100644 (file)
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -37,7 +37,7 @@ use URI::Escape;
 use Business::ISBN;
 use MARC::Record;
 use MARC::Field;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
 
 # set the version for version checking
 BEGIN {

diff --git a/C4/Serials.pm b/C4/Serials.pm
index c09a198..08b47ef 100644 (file)
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -36,7 +36,7 @@ use Koha::Serial;
 use Koha::Subscriptions;
 use Koha::Subscription::Histories;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # Define statuses
 use constant {

diff --git a/C4/Serials/Frequency.pm b/C4/Serials/Frequency.pm
index 041e75e..f4dafb1 100644 (file)
--- a/C4/Serials/Frequency.pm
+++ b/C4/Serials/Frequency.pm
@@ -22,7 +22,7 @@ use warnings;
 
 use C4::Context;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     # set the version for version checking

diff --git a/C4/Serials/Numberpattern.pm b/C4/Serials/Numberpattern.pm
index c7de69a..1395d5a 100644 (file)
--- a/C4/Serials/Numberpattern.pm
+++ b/C4/Serials/Numberpattern.pm
@@ -22,7 +22,7 @@ use warnings;
 
 use C4::Context;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
 

diff --git a/C4/ShelfBrowser.pm b/C4/ShelfBrowser.pm
index 3af36a5..f91369b 100644 (file)
--- a/C4/ShelfBrowser.pm
+++ b/C4/ShelfBrowser.pm
@@ -27,7 +27,7 @@ use C4::Branch;
 use C4::Context;
 use C4::Koha;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+use vars qw(@ISA @EXPORT @EXPORT_OK);
 
 BEGIN {
     $VERSION = 3.07.00.049;

diff --git a/C4/Stats.pm b/C4/Stats.pm
index c0c3514..567e293 100644 (file)
--- a/C4/Stats.pm
+++ b/C4/Stats.pm
@@ -24,7 +24,7 @@ require Exporter;
 use Carp;
 use C4::Context;
 use C4::Debug;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 our $debug;
 

diff --git a/C4/Tags.pm b/C4/Tags.pm
index 619c692..d7d2ee1 100644 (file)
--- a/C4/Tags.pm
+++ b/C4/Tags.pm
@@ -29,7 +29,7 @@ use C4::Debug;
 use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created);
 use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM   tags_all\n";
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 our $ext_dict;
 
 BEGIN {

diff --git a/C4/TmplTokenType.pm b/C4/TmplTokenType.pm
index aaae86d..7e6b4bd 100644 (file)
--- a/C4/TmplTokenType.pm
+++ b/C4/TmplTokenType.pm
@@ -21,7 +21,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 require Exporter;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 ###############################################################################
 

diff --git a/C4/Utils/DataTables.pm b/C4/Utils/DataTables.pm
index 2a0d998..0235ab5 100644 (file)
--- a/C4/Utils/DataTables.pm
+++ b/C4/Utils/DataTables.pm
@@ -20,7 +20,7 @@ package C4::Utils::DataTables;
 use Modern::Perl;
 require Exporter;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     $VERSION    = 3.07.00.049,

diff --git a/C4/XISBN.pm b/C4/XISBN.pm
index d04f2e7..5b5711d 100644 (file)
--- a/C4/XISBN.pm
+++ b/C4/XISBN.pm
@@ -28,7 +28,7 @@ use HTTP::Request::Common;
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 BEGIN {
        require Exporter;

diff --git a/C4/XSLT.pm b/C4/XSLT.pm
index 5622e5f..a5e0239 100644 (file)
--- a/C4/XSLT.pm
+++ b/C4/XSLT.pm
@@ -36,7 +36,7 @@ use Koha::Libraries;
 
 use Encode;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 my $engine; #XSLT Handler object
 my %authval_per_framework;

diff --git a/Koha/Misc/Files.pm b/Koha/Misc/Files.pm
index d722760..d1eb249 100644 (file)
--- a/Koha/Misc/Files.pm
+++ b/Koha/Misc/Files.pm
@@ -20,7 +20,7 @@ package Koha::Misc::Files;
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 use Modern::Perl;
-use vars qw($VERSION);
+use vars qw();
 $VERSION = '0.25';
 
 use C4::Context;

diff --git a/Koha/Patron/Files.pm b/Koha/Patron/Files.pm
index 9eb5d52..ac76dec 100644 (file)
--- a/Koha/Patron/Files.pm
+++ b/Koha/Patron/Files.pm
@@ -19,7 +19,7 @@ package Koha::Patron::Files;
 
 use Modern::Perl;
 
-use vars qw($VERSION);
+use vars qw();
 
 use C4::Context;
 use C4::Output;

diff --git a/Koha/Patron/Password/Recovery.pm b/Koha/Patron/Password/Recovery.pm
index 6cb1d94..f80fd2c 100644 (file)
--- a/Koha/Patron/Password/Recovery.pm
+++ b/Koha/Patron/Password/Recovery.pm
@@ -21,7 +21,7 @@ use Modern::Perl;
 use C4::Context;
 use Crypt::Eksblowfish::Bcrypt qw(en_base64);
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 
 BEGIN {
     # set the version for version checking

diff --git a/Koha/Template/Plugin/Cache.pm b/Koha/Template/Plugin/Cache.pm
index 3b8f96c..c91aa17 100644 (file)
--- a/Koha/Template/Plugin/Cache.pm
+++ b/Koha/Template/Plugin/Cache.pm
@@ -19,7 +19,7 @@ package Koha::Template::Plugin::Cache;
 
 use strict;
 use warnings;
-use vars qw( $VERSION );
+use vars qw( );
 use base qw( Template::Plugin );
 use Template::Plugin;
 use C4::Context;

diff --git a/acqui/pdfformat/layout2pages.pm b/acqui/pdfformat/layout2pages.pm
index 55213aa..e4f2b4f 100644 (file)
--- a/acqui/pdfformat/layout2pages.pm
+++ b/acqui/pdfformat/layout2pages.pm
@@ -22,7 +22,7 @@
 
 #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
 package pdfformat::layout2pages;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 use MIME::Base64;
 use strict;
 use warnings;

diff --git a/acqui/pdfformat/layout2pagesde.pm b/acqui/pdfformat/layout2pagesde.pm
index a514eec..75beb89 100644 (file)
--- a/acqui/pdfformat/layout2pagesde.pm
+++ b/acqui/pdfformat/layout2pagesde.pm
@@ -22,7 +22,7 @@
 
 #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
 package pdfformat::layout2pagesde;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 use MIME::Base64;
 use strict;
 use warnings;

diff --git a/acqui/pdfformat/layout3pages.pm b/acqui/pdfformat/layout3pages.pm
index ffec723..a35af19 100644 (file)
--- a/acqui/pdfformat/layout3pages.pm
+++ b/acqui/pdfformat/layout3pages.pm
@@ -22,7 +22,7 @@
 
 #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
 package pdfformat::layout3pages;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 use MIME::Base64;
 use List::MoreUtils qw/uniq/;
 use strict;

diff --git a/acqui/pdfformat/layout3pagesfr.pm b/acqui/pdfformat/layout3pagesfr.pm
index 66ba608..0c0b93c 100644 (file)
--- a/acqui/pdfformat/layout3pagesfr.pm
+++ b/acqui/pdfformat/layout3pagesfr.pm
@@ -21,7 +21,7 @@
 
 #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
 package pdfformat::layout3pagesfr;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 use MIME::Base64;
 use List::MoreUtils qw/uniq/;
 use strict;

diff --git a/install_misc/UpgradeBackup.pm b/install_misc/UpgradeBackup.pm
index b8e46d9..e38ca7e 100644 (file)
--- a/install_misc/UpgradeBackup.pm
+++ b/install_misc/UpgradeBackup.pm
@@ -26,7 +26,7 @@ use File::Find;
 use File::Spec;
 use Exporter;
 
-use vars qw(@ISA @EXPORT $VERSION);
+use vars qw(@ISA @EXPORT );
 
 @ISA = ('Exporter');
 @EXPORT = ('backup_changed_files');

diff --git a/misc/translator/TmplTokenizer.pm b/misc/translator/TmplTokenizer.pm
index 02767bd..d47dd51 100644 (file)
--- a/misc/translator/TmplTokenizer.pm
+++ b/misc/translator/TmplTokenizer.pm
@@ -8,7 +8,7 @@ use C4::TTParser;
 use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic );
 require Exporter;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 ###############################################################################
 

diff --git a/misc/translator/VerboseWarnings.pm b/misc/translator/VerboseWarnings.pm
index e2d57dd..19abc27 100644 (file)
--- a/misc/translator/VerboseWarnings.pm
+++ b/misc/translator/VerboseWarnings.pm
@@ -4,7 +4,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 require Exporter;
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 ###############################################################################