This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/warnings/toke: Fix comment typos
authorKarl Williamson <khw@cpan.org>
Tue, 31 Jan 2017 22:17:56 +0000 (15:17 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 2 Feb 2017 03:45:08 +0000 (20:45 -0700)
t/lib/warnings/toke

index 8ed6177..c97abaf 100644 (file)
@@ -1621,7 +1621,7 @@ my $a = qr ̂foobar̂;
 EXPECT
 Use of unassigned code point or non-standalone grapheme for a delimiter will be a fatal error starting in Perl 5.30 at - line 8.
 ########
-# NAME  [perl $130567] Assertion failure
+# NAME  [perl #130567] Assertion failure
 BEGIN {
     if (ord('A') != 65) {
         print "SKIPPED\n# test is ASCII-specific";
@@ -1635,12 +1635,12 @@ s//"\x{180};;s\221(*$@$`\241\275";/gee;
 s//"s\221\302\302\302\302\302\302\302$@\241\275";/gee;
 EXPECT
 ########
-# NAME  [perl $130666] Assertion failure
+# NAME  [perl #130666] Assertion failure
 no warnings "uninitialized";
 BEGIN{$^H=-1};my $l; s\0$0[$l]\0\0
 EXPECT
 ########
-# NAME  [perl $129036] Assertion failure
+# NAME  [perl #129036] Assertion failure
 BEGIN{$0="";$^H=hex join""=>A00000}p?
 EXPECT
 OPTION fatal