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>

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

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

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 }

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;

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;

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;

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

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

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);
 

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 {

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);
 

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);
 

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;

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;

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

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

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

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);

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

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;

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;

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;

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;

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;

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;

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;

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

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;

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;

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 {

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;

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 {

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;

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;

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 {
 

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

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

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;

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;

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;

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) {

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;

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

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;
 

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

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

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 {

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

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

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

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

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

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;

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;

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;
 

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;

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
 

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

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);

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;

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;

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';

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;
 

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;

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;
 

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 {

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 {

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

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 {
 

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;

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;
 

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 {

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);
 
 ###############################################################################
 

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,

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;

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;

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;

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;

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

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;

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;

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;

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;

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;

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');

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);
 
 ###############################################################################
 

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);
 
 ###############################################################################