A regression test for the remaining "Final $ should be..." error.

p4raw-id: //depot/perl@19469

diff --git a/t/comp/parser.t b/t/comp/parser.t
index 25025cc..899f867 100644 (file)
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -9,7 +9,7 @@ BEGIN {
 }
 
 require "./test.pl";
-plan( tests => 38 );
+plan( tests => 39 );
 
 eval '%@x=0;';
 like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
@@ -52,6 +52,9 @@ like( $@, qr/error/, 'lexical block discarded by yacc' );
 eval q{ "\c" };
 like( $@, qr/^Missing control char name in \\c/, q("\c" string) );
 
+eval q{ qq(foo$) };
+like( $@, qr/Final \$ should be \\\$ or \$name/, q($ at end of "" string) );
+
 # two tests for memory corruption problems in the said variables
 # (used to dump core or produce strange results)