From 3830d78d4699ff0b86be15372f668631f1c1fc95 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 Signed-off-by: Josef Moravec Signed-off-by: Tomas Cohen Arazi Signed-off-by: Brendan A Gallagher --- 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/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/Patron/Password/Recovery.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 4f5f8d445c..b10ae89152 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 d878201d6b..4ec7eab975 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 332b8c67c1..ff5eb0db66 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 174933321e..884a547433 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 775f77985e..00304b715b 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 6c53c79882..bbf556ede7 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 a88d4fa8f8..430e31ed38 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 477ea64b62..f7dfe882f6 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 35c5d6a97b..20b564d0c4 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 1ac1b42ffb..30c03c4f10 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 c2e8d0ba8c..b67492010b 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 b60038ec75..6716778638 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 70cd40af5d..f5a09900e4 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 fa1bb4c84f..fe60efa952 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 9f8263826f..c1ea659b41 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 18bf03bc2f..d9d5642958 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 9c50bda420..76876fe066 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 99b0c3aa68..852bdd7780 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 cd7a61fa25..86b8c1531f 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 a1d78150f8..689110111e 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 2c345ba9b7..8ca2ee4e94 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 89262c33bf..9578244fce 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 1e19560d3e..ef4e13b903 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 eb5e3ebdbc..1fe652d050 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 0a8d65b9bb..1130dfbc98 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 405fbf8316..34a29264d1 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 75e437dded..b456528c2e 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 1e415a7c00..42154225b7 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 d1166c9cfb..47a9032b31 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 6ab2fb4233..946245c85d 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 b2d4bb440f..6a44cfaa14 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 a869ed5817..70133f1525 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 a407bcf148..db376e5d25 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 3cfe206e90..e9562f9ee9 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 936c4df787..5d419dce39 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 cb1a2313ab..8a69a9424b 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 f829f0cc47..2e35a68bed 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 de304bac01..6c229f5265 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 9594c98a3a..fdb1c525b9 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 6981ebf8da..7c4bf30eb1 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 95bc1144e4..903120390f 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 0452df2107..4d15034f12 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 d4ff988027..696332c4ed 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 d72b870a16..85e6a49656 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 0dd87828ef..9d8ad69525 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 234e1e08e6..fb297ca70d 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 2f560c7544..0c9b854941 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 76a3dadfef..72d942d4f4 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 4dfde13175..0769e50b9b 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 0a0ae214b1..b82992b3e7 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 6c09f43824..553d70fb78 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/Print.pm b/C4/Print.pm index 22623c8822..35c54307d0 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 f869f690c9..730b6c4390 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 136015593a..80ab7e0dad 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 a73830be7c..08443463dc 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 ffc8afd3f2..5d85adeaca 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 e0d616bcbd..535c37d84d 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 5c6f45aff1..2d2a65873e 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 21acd9698e..e615c965b7 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 0562a7851a..3fc6d66ee1 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 29aa6a2912..b6e9e45656 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 f43aaa6f75..5c3c721c6f 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 f963382c48..a9a1ea5d12 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 1cd67b97e4..e946b45b08 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 da89f93f48..82bfe24fef 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 fcbb660f42..a6305def00 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 c09a1984b4..08b47efa3d 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 041e75e96b..f4dafb1760 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 c7de69a5c1..1395d5a6a4 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 3af36a5a83..f91369b9f6 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 c0c3514428..567e293f13 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 619c692bfe..d7d2ee1064 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 aaae86d70f..7e6b4bdf1d 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 2a0d998d77..0235ab5a50 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 d04f2e7e1e..5b5711d4bd 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 5622e5f058..a5e023917c 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 d722760265..d1eb249ee5 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 9eb5d5296a..ac76decfa5 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/Patron/Password/Recovery.pm b/Koha/Patron/Password/Recovery.pm index 6cb1d94595..f80fd2c3dd 100644 --- 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 3b8f96cfac..c91aa175b3 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 55213aad6b..e4f2b4fdf0 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 a514eec2fe..75beb89211 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 ffec7235d1..a35af190fb 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 66ba608bbf..0c0b93cc1c 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 b8e46d9bb8..e38ca7e33f 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 02767bdb1d..d47dd518c0 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 e2d57dd491..19abc27965 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.20.1