From 3cfedcf2381375b29fe9ea83099181f0623cba76 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 9 Mar 2016 12:42:09 +0000 Subject: [PATCH] Bug 16011: $VERSION - Remove empty BEGIN block perl -p -i -0 -e 's/BEGIN \{\n?\n?\}\n//' **/*.pm Signed-off-by: Josef Moravec Signed-off-by: Tomas Cohen Arazi Signed-off-by: Brendan A Gallagher --- C4/BackgroundJob.pm | 2 -- C4/Creators/Batch.pm | 2 -- C4/Creators/Layout.pm | 2 -- C4/Creators/PDF.pm | 2 -- C4/Creators/Profile.pm | 2 -- C4/Creators/Template.pm | 2 -- C4/Labels/Batch.pm | 2 -- C4/Labels/Label.pm | 2 -- C4/Labels/Layout.pm | 2 -- C4/Labels/Profile.pm | 2 -- C4/Labels/Template.pm | 2 -- C4/Matcher.pm | 2 -- C4/Members/AttributeTypes.pm | 2 -- C4/Members/Messaging.pm | 2 -- C4/Patroncards/Batch.pm | 2 -- C4/Patroncards/Layout.pm | 2 -- C4/Patroncards/Patroncard.pm | 2 -- C4/Patroncards/Profile.pm | 2 -- C4/Patroncards/Template.pm | 2 -- C4/SMS.pm | 2 -- Koha/Patron/Files.pm | 3 --- 21 files changed, 43 deletions(-) diff --git a/C4/BackgroundJob.pm b/C4/BackgroundJob.pm index 46f948b5cb..f607340f12 100644 --- a/C4/BackgroundJob.pm +++ b/C4/BackgroundJob.pm @@ -25,8 +25,6 @@ use C4::Auth qw/get_session/; use Digest::MD5; -BEGIN { -} =head1 NAME diff --git a/C4/Creators/Batch.pm b/C4/Creators/Batch.pm index 2c2f540c7e..1191b96a0b 100644 --- a/C4/Creators/Batch.pm +++ b/C4/Creators/Batch.pm @@ -8,8 +8,6 @@ use autouse 'Data::Dumper' => qw(Dumper); use C4::Context; use C4::Debug; -BEGIN { -} sub _check_params { my $given_params = {}; diff --git a/C4/Creators/Layout.pm b/C4/Creators/Layout.pm index e274f37f42..f1dc20edd4 100644 --- a/C4/Creators/Layout.pm +++ b/C4/Creators/Layout.pm @@ -9,8 +9,6 @@ use C4::Context; use C4::Debug; use C4::Creators::PDF; -BEGIN { -} # FIXME: Consider this style parameter verification instead... # my %param = @_; diff --git a/C4/Creators/PDF.pm b/C4/Creators/PDF.pm index f0f5cbd90a..9796feb832 100644 --- a/C4/Creators/PDF.pm +++ b/C4/Creators/PDF.pm @@ -24,8 +24,6 @@ use PDF::Reuse::Barcode; use File::Temp; use List::Util qw/first/; -BEGIN { -} sub _InitVars { my $self = shift; diff --git a/C4/Creators/Profile.pm b/C4/Creators/Profile.pm index de3723d915..37512fa882 100644 --- a/C4/Creators/Profile.pm +++ b/C4/Creators/Profile.pm @@ -9,8 +9,6 @@ use C4::Context; use C4::Debug; use C4::Creators::Lib qw(get_unit_values); -BEGIN { -} sub _check_params { my $given_params = {}; diff --git a/C4/Creators/Template.pm b/C4/Creators/Template.pm index 3edb9e545f..ee504d7308 100644 --- a/C4/Creators/Template.pm +++ b/C4/Creators/Template.pm @@ -10,8 +10,6 @@ use C4::Debug; use C4::Creators::Profile; use C4::Creators::Lib qw(get_unit_values); -BEGIN { -} sub _check_params { shift if $_[0] =~ m/::/; # this seems a bit hackish diff --git a/C4/Labels/Batch.pm b/C4/Labels/Batch.pm index c8b68cafb8..66bcf978d2 100644 --- a/C4/Labels/Batch.pm +++ b/C4/Labels/Batch.pm @@ -7,8 +7,6 @@ use base qw(C4::Creators::Batch); use autouse 'Data::Dumper' => qw(Dumper); -BEGIN { -} __PACKAGE__ =~ m/^C4::(.+)::.+$/; my $me = $1; diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm index 3ae505f43c..491146e7dc 100644 --- a/C4/Labels/Label.pm +++ b/C4/Labels/Label.pm @@ -14,8 +14,6 @@ use C4::Context; use C4::Debug; use C4::Biblio; -BEGIN { -} my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN diff --git a/C4/Labels/Layout.pm b/C4/Labels/Layout.pm index f64ff829ed..5cda8f47b7 100644 --- a/C4/Labels/Layout.pm +++ b/C4/Labels/Layout.pm @@ -7,8 +7,6 @@ use base qw(C4::Creators::Layout); use autouse 'Data::Dumper' => qw(Dumper); -BEGIN { -} __PACKAGE__ =~ m/^C4::(.+)::.+$/; my $me = $1; diff --git a/C4/Labels/Profile.pm b/C4/Labels/Profile.pm index 3f7a8554b7..b65af631d7 100644 --- a/C4/Labels/Profile.pm +++ b/C4/Labels/Profile.pm @@ -7,8 +7,6 @@ use base qw(C4::Creators::Profile); use autouse 'Data::Dumper' => qw(Dumper); -BEGIN { -} __PACKAGE__ =~ m/^C4::(.+)::.+$/; my $me = $1; diff --git a/C4/Labels/Template.pm b/C4/Labels/Template.pm index 2742132f13..890c77d1bf 100644 --- a/C4/Labels/Template.pm +++ b/C4/Labels/Template.pm @@ -7,8 +7,6 @@ use base qw(C4::Creators::Template); use autouse 'Data::Dumper' => qw(Dumper); -BEGIN { -} use constant TEMPLATE_TABLE => 'creator_templates'; diff --git a/C4/Matcher.pm b/C4/Matcher.pm index 3fccf3c78c..8cf1a99014 100644 --- a/C4/Matcher.pm +++ b/C4/Matcher.pm @@ -24,8 +24,6 @@ use C4::Context; use MARC::Record; -BEGIN { -} =head1 NAME diff --git a/C4/Members/AttributeTypes.pm b/C4/Members/AttributeTypes.pm index 1f7e404f13..eb4346de62 100644 --- a/C4/Members/AttributeTypes.pm +++ b/C4/Members/AttributeTypes.pm @@ -22,8 +22,6 @@ use strict; use C4::Context; -BEGIN { -} =head1 NAME diff --git a/C4/Members/Messaging.pm b/C4/Members/Messaging.pm index c167ede256..51bcdd885b 100644 --- a/C4/Members/Messaging.pm +++ b/C4/Members/Messaging.pm @@ -22,8 +22,6 @@ use warnings; use C4::Context; -BEGIN { -} =head1 NAME diff --git a/C4/Patroncards/Batch.pm b/C4/Patroncards/Batch.pm index 9583ef8e6a..8982fce386 100644 --- a/C4/Patroncards/Batch.pm +++ b/C4/Patroncards/Batch.pm @@ -7,8 +7,6 @@ use base qw(C4::Creators::Batch); use autouse 'Data::Dumper' => qw(Dumper); -BEGIN { -} __PACKAGE__ =~ m/^C4::(.+)::.+$/; my $me = $1; diff --git a/C4/Patroncards/Layout.pm b/C4/Patroncards/Layout.pm index fc8bd97c49..4c2dc218bc 100644 --- a/C4/Patroncards/Layout.pm +++ b/C4/Patroncards/Layout.pm @@ -7,8 +7,6 @@ use base qw(C4::Creators::Layout); use autouse 'Data::Dumper' => qw(Dumper); -BEGIN { -} __PACKAGE__ =~ m/^C4::(.+)::.+$/; my $me = $1; diff --git a/C4/Patroncards/Patroncard.pm b/C4/Patroncards/Patroncard.pm index e2aa06a8b4..2203d1a1e5 100644 --- a/C4/Patroncards/Patroncard.pm +++ b/C4/Patroncards/Patroncard.pm @@ -28,8 +28,6 @@ use C4::Creators::Lib qw(get_font_types); use C4::Creators::PDF qw(StrWidth); use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes); -BEGIN { -} sub new { my ($invocant, %params) = @_; diff --git a/C4/Patroncards/Profile.pm b/C4/Patroncards/Profile.pm index 3ecaa1fd15..36797c0f1c 100644 --- a/C4/Patroncards/Profile.pm +++ b/C4/Patroncards/Profile.pm @@ -7,8 +7,6 @@ use base qw(C4::Creators::Profile); use autouse 'Data::Dumper' => qw(Dumper); -BEGIN { -} __PACKAGE__ =~ m/^C4::(.+)::.+$/; my $me = $1; diff --git a/C4/Patroncards/Template.pm b/C4/Patroncards/Template.pm index b8a14eeae0..4bb4543ac7 100644 --- a/C4/Patroncards/Template.pm +++ b/C4/Patroncards/Template.pm @@ -7,8 +7,6 @@ use base qw(C4::Creators::Template); use autouse 'Data::Dumper' => qw(Dumper); -BEGIN { -} use constant TEMPLATE_TABLE => 'creator_templates'; diff --git a/C4/SMS.pm b/C4/SMS.pm index 53c04f88b6..41407e3bc9 100644 --- a/C4/SMS.pm +++ b/C4/SMS.pm @@ -38,8 +38,6 @@ use warnings; use C4::Context; -BEGIN { -} =head1 METHODS diff --git a/Koha/Patron/Files.pm b/Koha/Patron/Files.pm index 7efd13faef..299666e586 100644 --- a/Koha/Patron/Files.pm +++ b/Koha/Patron/Files.pm @@ -24,9 +24,6 @@ use C4::Context; use C4::Output; use C4::Debug; -BEGIN { - -} =head1 NAME -- 2.39.5