From c202038334a38569cbccfb9607f9f71634d4e6fe Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 2 Mar 2016 10:38:31 +0000 Subject: [PATCH] Bug 16011: $VERSION - remove use vars $VERSION perl -p -i -e 's/^(use vars .*)\$VERSION\s?(.*)/$1$2/' **/*.pm --- C4/Accounts.pm | 2 +- C4/Acquisition.pm | 2 +- C4/Auth.pm | 2 +- C4/Auth_with_cas.pm | 2 +- C4/Auth_with_ldap.pm | 2 +- C4/Auth_with_shibboleth.pm | 2 +- C4/AuthoritiesMarc.pm | 2 +- C4/BackgroundJob.pm | 2 +- C4/Barcodes.pm | 2 +- C4/Barcodes/EAN13.pm | 2 +- C4/Barcodes/annual.pm | 2 +- C4/Barcodes/hbyymmincr.pm | 2 +- C4/Barcodes/incremental.pm | 2 +- C4/Biblio.pm | 2 +- C4/Branch.pm | 2 +- C4/Breeding.pm | 2 +- C4/Budgets.pm | 2 +- C4/Calendar.pm | 2 +- C4/Charset.pm | 2 +- C4/Circulation.pm | 2 +- C4/ClassSortRoutine.pm | 2 +- C4/ClassSortRoutine/Dewey.pm | 2 +- C4/ClassSortRoutine/Generic.pm | 2 +- C4/ClassSortRoutine/LCC.pm | 2 +- C4/ClassSource.pm | 2 +- C4/Context.pm | 2 +- C4/Contract.pm | 2 +- C4/CourseReserves.pm | 2 +- C4/Csv.pm | 2 +- C4/Debug.pm | 2 +- C4/External/Amazon.pm | 2 +- C4/External/BakerTaylor.pm | 2 +- C4/External/Syndetics.pm | 2 +- C4/HoldsQueue.pm | 2 +- C4/Images.pm | 2 +- C4/ImportBatch.pm | 2 +- C4/ImportExportFramework.pm | 2 +- C4/InstallAuth.pm | 2 +- C4/Items.pm | 2 +- C4/Koha.pm | 2 +- C4/Languages.pm | 2 +- C4/Letters.pm | 2 +- C4/Log.pm | 2 +- C4/MarcModificationTemplates.pm | 2 +- C4/Matcher.pm | 2 +- C4/Members/AttributeTypes.pm | 2 +- C4/Members/Attributes.pm | 2 +- C4/Members/Messaging.pm | 2 +- C4/NewsChannels.pm | 2 +- C4/Output.pm | 2 +- C4/Overdues.pm | 2 +- C4/Passwordrecovery.pm | 2 +- C4/Print.pm | 2 +- C4/Ratings.pm | 2 +- C4/Record.pm | 2 +- C4/Reports.pm | 2 +- C4/Reports/Guided.pm | 2 +- C4/Reserves.pm | 2 +- C4/Review.pm | 2 +- C4/Ris.pm | 2 +- C4/RotatingCollections.pm | 2 +- C4/SIP/Sip.pm | 2 +- C4/SIP/Sip/MsgType.pm | 2 +- C4/SIP/t/SIPtest.pm | 2 +- C4/SMS.pm | 2 +- C4/Scheduler.pm | 2 +- C4/Search.pm | 2 +- C4/Serials.pm | 2 +- C4/Serials/Frequency.pm | 2 +- C4/Serials/Numberpattern.pm | 2 +- C4/ShelfBrowser.pm | 2 +- C4/Stats.pm | 2 +- C4/Tags.pm | 2 +- C4/TmplTokenType.pm | 2 +- C4/Utils/DataTables.pm | 2 +- C4/XISBN.pm | 2 +- C4/XSLT.pm | 2 +- Koha/Misc/Files.pm | 2 +- Koha/Patron/Files.pm | 2 +- Koha/Template/Plugin/Cache.pm | 2 +- acqui/pdfformat/layout2pages.pm | 2 +- acqui/pdfformat/layout2pagesde.pm | 2 +- acqui/pdfformat/layout3pages.pm | 2 +- acqui/pdfformat/layout3pagesfr.pm | 2 +- install_misc/UpgradeBackup.pm | 2 +- misc/translator/TmplTokenizer.pm | 2 +- misc/translator/VerboseWarnings.pm | 2 +- 87 files changed, 87 insertions(+), 87 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 4f5f8d4..b10ae89 100644 --- 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 --- 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 --- 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 --- 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 58484a2..54b6a42 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 7f2fbfd..e8824a9 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 226ba6a..a419a3d 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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..fdb1c525 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 b25a813..a21dddd 100644 --- 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 --- 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 --- 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 3ae4c6c..df585f9 100644 --- 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 --- 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/Passwordrecovery.pm b/C4/Passwordrecovery.pm index a67c4d4..82e82fa 100644 --- a/C4/Passwordrecovery.pm +++ b/C4/Passwordrecovery.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/C4/Print.pm b/C4/Print.pm index 22623c8..35c5430 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 58ccf84..edffcb6 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- a/Koha/Misc/Files.pm +++ b/Koha/Misc/Files.pm @@ -20,7 +20,7 @@ package Koha::Misc::Files; # along with Koha; if not, see . 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 --- 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/Template/Plugin/Cache.pm b/Koha/Template/Plugin/Cache.pm index 3b8f96c..c91aa17 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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); ############################################################################### -- 2.7.0