Commit 3830d78d authored by joubu's avatar joubu Committed by Brendan A Gallagher

Bug 16011: $VERSION - remove use vars $VERSION

perl -p -i -e 's/^(use vars .*)\$VERSION\s?(.*)/$1$2/' **/*.pm
Signed-off-by: Josef Moravec's avatarJosef Moravec <josef.moravec@gmail.com>
Signed-off-by: default avatarTomas Cohen Arazi <tomascohen@unc.edu.ar>
Signed-off-by: default avatarBrendan A Gallagher <brendan@bywatersolutions.com>
parent e4972244
......@@ -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
......
......@@ -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
......
......@@ -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 }
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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
......
......@@ -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
......
......@@ -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);
......
......@@ -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 {
......
......@@ -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);
......
......@@ -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);
......
......@@ -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;
......
......@@ -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;
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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);
......
......@@ -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
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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
......
......@@ -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;
......
......@@ -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;
......
......@@ -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 {
......
......@@ -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;
......
......@@ -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 {
......
......@@ -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;
......
......@@ -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;
......
......@@ -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 {
......
......@@ -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
......
......@@ -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
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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) {
......
......@@ -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;
......
......@@ -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
......
......@@ -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;
......
......@@ -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
......
......@@ -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
......
......@@ -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 {
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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
......
......@@ -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
......
......@@ -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);
......
......@@ -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;
......
......@@ -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;
......
......@@ -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';
......
......@@ -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;
......
......@@ -37,7 +37,7 @@ use warnings;
use C4::Context;
use vars qw( $VERSION );
use vars qw( );
BEGIN {
$VERSION = 3.07.00.049;
......
......@@ -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;
......
......@@ -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 {
......
......@@ -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 {
......
......@@ -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
......
......@@ -22,7 +22,7 @@ use warnings;
use C4::Context;
use vars qw($VERSION @ISA @EXPORT);
use vars qw(@ISA @EXPORT);
BEGIN {
......
......@@ -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;
......
......@@ -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;
......
......@@ -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 {
......
......@@ -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);
###############################################################################
......
......@@ -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,
......
......@@ -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;
......