This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct bug number comment in test.
authorNicholas Clark <nick@ccl4.org>
Sat, 25 May 2013 10:03:23 +0000 (12:03 +0200)
committerNicholas Clark <nick@ccl4.org>
Sat, 25 May 2013 10:03:23 +0000 (12:03 +0200)
t/op/local.t

index 706a1bf..03a8310 100644 (file)
@@ -628,7 +628,7 @@ while (/(o.+?),/gc) {
 }
 
 {
-    # BUG 20001205.22
+    # BUG 20001205.022 (RT #4852)
     my %x;
     $x{a} = 1;
     { local $x{b} = 1; }