From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 10 Dec 2000 03:44:52 +0000 (+0000)
Subject: Test case for #8064.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=337449a83e0de486c744f78c32c1bf4cd78b06ec;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";