Test case for #8064.

p4raw-id: //depot/perl@8065

diff --git a/t/comp/proto.t b/t/comp/proto.t
index 4c5b5ee..845843a 100755 (executable)
--- a/t/comp/proto.t
+++ b/t/comp/proto.t
@@ -19,7 +19,7 @@ BEGIN {
 
 use strict;
 
-print "1..122\n";
+print "1..123\n";
 
 my $i = 1;
 
@@ -498,3 +498,7 @@ for my $p ( "", qw{ () ($) ($@) ($%) ($;$) (&) (&\@) (&@) (%) (\%) (\@) } ) {
   print "# eval[$eval]\nnot " unless $@ && $@ =~ /syntax error/;
   print "ok ", $i++, "\n";
 }
+
+# Not $$;$;$
+print "not " unless prototype "CORE::substr" eq '$$;$$';
+print "ok ", $i++, "\n";