From 1e52613a91ad78883824da740cfc4c840a53f5b9 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 --- 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 46f948b..f607340 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 2c2f540..1191b96 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 e274f37..f1dc20e 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 f0f5cbd..9796feb 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 de3723d..37512fa 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 3edb9e5..ee504d7 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 c8b68ca..66bcf97 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 3ae505f..491146e 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 f64ff82..5cda8f4 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 3f7a855..b65af63 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 2742132..890c77d 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 3fccf3c..8cf1a99 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 1f7e404..eb4346d 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 c167ede..51bcdd8 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 9583ef8..8982fce 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 fc8bd97..4c2dc21 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 e2aa06a..2203d1a 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 3ecaa1f..36797c0 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 b8a14ee..4bb4543 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 684b2d6..c81f35e 100644 --- a/C4/SMS.pm +++ b/C4/SMS.pm @@ -39,8 +39,6 @@ use C4::Context; use vars qw( ); -BEGIN { -} =head1 METHODS diff --git a/Koha/Patron/Files.pm b/Koha/Patron/Files.pm index 7efd13f..299666e 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.7.0