diff options
| author |   Kent Fredric <kentnl@gentoo.org> | 2017-10-08 14:07:53 +1300 |
|---|---|---|
| committer | Kent Fredric <kentnl@gentoo.org> | 2017-10-08 14:07:53 +1300 |
| commit | e7678976ce60ae2df59609398f6010f55f637a4b (patch) | |
| tree | 46e248e264cb5f19692cc45723884bac511b0ee2 /dev-perl/DBI-Shell/files/DBI-Shell-11.950.0-local-scalar.patch | |
| parent | dev-perl/Devel-SmallProf: Fix perl 5.26 support re bug #615590 (diff) | |
| download | gentoo-e7678976ce60ae2df59609398f6010f55f637a4b.tar.gz gentoo-e7678976ce60ae2df59609398f6010f55f637a4b.tar.bz2 gentoo-e7678976ce60ae2df59609398f6010f55f637a4b.zip | |
dev-perl/DBI-Shell: Fix '.' in @INC w/ rbump bug #615592
- EAPI6
- Fix (runtime) '.' in @INC issue
- fix no_chrdir issue with newer File::Find
- fix localisation of $^W ( started warning in 5.10 )
- silenct warning about excess sprintf
Bug: https://bugs.gentoo.org/615592
Package-Manager: Portage-2.3.8, Repoman-2.3.3
Diffstat (limited to 'dev-perl/DBI-Shell/files/DBI-Shell-11.950.0-local-scalar.patch')
| -rw-r--r-- | dev-perl/DBI-Shell/files/DBI-Shell-11.950.0-local-scalar.patch | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/dev-perl/DBI-Shell/files/DBI-Shell-11.950.0-local-scalar.patch b/dev-perl/DBI-Shell/files/DBI-Shell-11.950.0-local-scalar.patch new file mode 100644 index 000000000000..1d305f542d9e --- /dev/null +++ b/dev-perl/DBI-Shell/files/DBI-Shell-11.950.0-local-scalar.patch @@ -0,0 +1,26 @@ +From ef8efc5b80c9395c01f23e5acd28bb3ee7810b54 Mon Sep 17 00:00:00 2001 +From: Kent Fredric <kentnl@gentoo.org> +Date: Sun, 8 Oct 2017 13:08:20 +1300 +Subject: Fix useless localization of scalar assignment + +Bug: https://rt.cpan.org/Ticket/Display.html?id=73873 +--- + lib/DBI/Format.pm | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/lib/DBI/Format.pm b/lib/DBI/Format.pm +index 49cd7dd..bc985f9 100755 +--- a/lib/DBI/Format.pm ++++ b/lib/DBI/Format.pm +@@ -374,7 +374,7 @@ sub header { + + sub row { + my($self, $rowref) = @_; +- local( $^W = 0 ); ++ local ($^W) = 0; + my @row = @$rowref; + my $fh = $self->{'fh'}; + print $fh (join($self->{sep}, @row), "\n"); +-- +2.14.1 + |