Tired of looking up old bug numbers

[perl5.git] / t / op / avhv.t

diff --git a/t/op/avhv.t b/t/op/avhv.t
index 39a54dc..72d041f 100644 (file)
--- a/t/op/avhv.t
+++ b/t/op/avhv.t
@@ -276,7 +276,7 @@ eval {
 };
 not_hash($@);
 
-# Check hash slices (BUG ID 20010423.002)
+# Check hash slices (BUG ID 20010423.002 (#6879))
 $avhv = [{foo=>1, bar=>2}];
 eval {
     @$avhv{"foo", "bar"} = (42, 53);