perldelta for 14d26b44a1d7

[perl5.git] / pod / perlretut.pod

diff --git a/pod/perlretut.pod b/pod/perlretut.pod
index 3add259..1e1cdd4 100644 (file)
--- 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";
         }