In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/2b2126557600d964281cf37893d936e401b1a5cc?hp=762333d9ece738d85d8c0668c9b2dc6e83281c73>
- Log -----------------------------------------------------------------
commit 2b2126557600d964281cf37893d936e401b1a5cc
Author: kafka <ka...@madrognon.net>
Date: Wed Jun 11 21:18:09 2014 -0400
Bring a few lines in Storable.pm under 80 cols.
Remove entry for storable in known_pod_issues.
Increment Storable version number.
For: https://rt.perl.org/Ticket/Display.html?id=121861
-----------------------------------------------------------------------
Summary of changes:
dist/Storable/Storable.pm | 16 ++++++++++------
t/porting/known_pod_issues.dat | 1 -
2 files changed, 10 insertions(+), 7 deletions(-)
diff --git a/dist/Storable/Storable.pm b/dist/Storable/Storable.pm
index 7ce422e..839c1d1 100644
--- a/dist/Storable/Storable.pm
+++ b/dist/Storable/Storable.pm
@@ -1,7 +1,7 @@
#
# Copyright (c) 1995-2001, Raphael Manfredi
# Copyright (c) 2002-2014 by the Perl 5 Porters
-#
+#
# You may redistribute only under the same terms as Perl 5, as specified
# in the README file that comes with the distribution.
#
@@ -22,7 +22,7 @@ package Storable; @ISA = qw(Exporter);
use vars qw($canonical $forgive_me $VERSION);
-$VERSION = '2.50';
+$VERSION = '2.51';
BEGIN {
if (eval { local $SIG{__DIE__}; require Log::Agent; 1 }) {
@@ -241,7 +241,8 @@ sub _store {
if ($use_locking) {
open(FILE, ">>$file") || logcroak "can't write into $file: $!";
unless (&CAN_FLOCK) {
- logcarp "Storable::lock_store: fcntl/flock emulation
broken on $^O";
+ logcarp
+ "Storable::lock_store: fcntl/flock emulation
broken on $^O";
return undef;
}
flock(FILE, LOCK_EX) ||
@@ -372,7 +373,8 @@ sub _retrieve {
my $da = $@; # Could
be from exception handler
if ($use_locking) {
unless (&CAN_FLOCK) {
- logcarp "Storable::lock_store: fcntl/flock emulation
broken on $^O";
+ logcarp
+ "Storable::lock_store: fcntl/flock emulation
broken on $^O";
return undef;
}
flock(FILE, LOCK_SH) || logcroak "can't get shared lock on
$file: $!";
@@ -1212,8 +1214,10 @@ the bill.
=head1 AUTHOR
-Storable was written by Raphael Manfredi
F<E<lt>raphael_manfr...@pobox.come<gt>>
-Maintenance is now done by the perl5-porters
F<E<lt>perl5-port...@perl.orge<gt>>
+Storable was written by Raphael Manfredi
+F<E<lt>raphael_manfr...@pobox.come<gt>>
+Maintenance is now done by the perl5-porters
+F<E<lt>perl5-port...@perl.orge<gt>>
Please e-mail us with problems, bug fixes, comments and complaints,
although if you have compliments you should send them to Raphael.
diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat
index 47652c4..dcf14d6 100644
--- a/t/porting/known_pod_issues.dat
+++ b/t/porting/known_pod_issues.dat
@@ -212,7 +212,6 @@ dist/data-dumper/dumper.pm ? Should you be using L<...>
instead of 1
dist/math-bigint/lib/math/bigint.pm Verbatim line length including indents
exceeds 79 by 71
dist/math-bigrat/lib/math/bigrat.pm Verbatim line length including indents
exceeds 79 by 7
dist/module-corelist/lib/module/corelist/utils.pm Verbatim line length
including indents exceeds 79 by 2
-dist/storable/storable.pm Verbatim line length including indents exceeds
79 by 4
dist/thread-queue/lib/thread/queue.pm Verbatim line length including indents
exceeds 79 by 4
dist/tie-file/lib/tie/file.pm Verbatim line length including indents exceeds
79 by 3
ext/devel-peek/peek.pm ? Should you be using L<...> instead of 2
--
Perl5 Master Repository
