In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/14ccab5a6b00da04dd7a4eeb19bb8caadde2bd72?hp=e9c9cf57594854df9f5802f7f149be4738212e96>
- Log -----------------------------------------------------------------
commit 14ccab5a6b00da04dd7a4eeb19bb8caadde2bd72
Author: Gene Sullivan <gsulli...@cpan.org>
Date: Fri May 4 22:17:25 2018 -0400
perlretut correction: 'qw' should be inside parens
RT #133172
-----------------------------------------------------------------------
Summary of changes:
Porting/checkAUTHORS.pl | 1 +
pod/perlretut.pod | 2 +-
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index f0cb984282..2f34a8428b 100755
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -627,6 +627,7 @@ fugazi\100zyx.net larrysh\100cpan.org
gbacon\100itsc.uah.edu gbacon\100adtrn-srv4.adtran.com
gerberb\100zenez.com root\100devsys0.zenez.com
gfuji\100cpan.org g.psy.va\100gmail.com
+genesullivan50\100yahoo.com gsullivan\100cpan.org
gerard\100ggoossen.net gerard\100tty.nl
gibreel\100pobox.com
stephen.zander\100interlock.mckesson.com
+ srz\100loopback
diff --git a/pod/perlretut.pod b/pod/perlretut.pod
index 3add259f79..1e1cdd49b2 100644
--- a/pod/perlretut.pod
+++ b/pod/perlretut.pod
@@ -880,7 +880,7 @@ matching operation combines the three patterns as
alternatives:
$fmt1 = '(?<y>\d\d\d\d)-(?<m>\d\d)-(?<d>\d\d)';
$fmt2 = '(?<m>\d\d)/(?<d>\d\d)/(?<y>\d\d\d\d)';
$fmt3 = '(?<d>\d\d)\.(?<m>\d\d)\.(?<y>\d\d\d\d)';
- for my $d qw( 2006-10-21 15.01.2007 10/31/2005 ){
+ for my $d (qw(2006-10-21 15.01.2007 10/31/2005)) {
if ( $d =~ m{$fmt1|$fmt2|$fmt3} ){
print "day=$+{d} month=$+{m} year=$+{y}\n";
}
--
Perl5 Master Repository
