From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 30 Mar 2001 02:34:48 +0000 (+0000)
Subject: Test for #9462.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fc674faa7c9829511ccc23843333f69487c1657e;p=p5sagit%2Fp5-mst-13.2.git

Test for #9462.

p4raw-id: //depot/perl@9463
---

diff --git a/t/lib/b.t b/t/lib/b.t
index 0589d16..9cadaf7 100755
--- a/t/lib/b.t
+++ b/t/lib/b.t
@@ -15,7 +15,7 @@ use warnings;
 use strict;
 use Config;
 
-print "1..18\n";
+print "1..19\n";
 
 my $test = 1;
 
@@ -70,6 +70,11 @@ use constant 'c', 'stuff';
 print "not " if (eval "sub ".$deparse->coderef2text(\&c))->() ne 'stuff';
 ok;
 
+$a = 0;
+print "not " if "{\n    (-1) ** \$a;\n}"
+		ne $deparse->coderef2text(sub{(-1) ** $a });
+ok;
+
 # XXX ToDo - constsub that returns a reference
 #use constant cr => ['hello'];
 #my $string = "sub " . $deparse->coderef2text(\&cr);