This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
propagate changed error text
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 6 Sep 1999 19:09:06 +0000 (19:09 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 6 Sep 1999 19:09:06 +0000 (19:09 +0000)
p4raw-id: //depot/perl@4090

t/pragma/sub_lval.t

index f6d867c..c382ad5 100755 (executable)
@@ -239,7 +239,7 @@ eval <<'EOE' or $_ = $@;
 EOE
 
 print "# '$_', '$x0', '$x1'.\nnot "
-  unless /Can\'t modify non-lvalue indirect subroutine call/;
+  unless /Can\'t modify non-lvalue subroutine call/;
 print "ok 30\n";
 
 sub lv0 {use attrs 'lvalue';}          # Converted to lv10 in scalar context