Change 34063 by [EMAIL PROTECTED] on 2008/06/16 14:13:58
Subject: [PATCH] TODO B-Deparse cpan-bug 33708
From: "Reini Urban" <[EMAIL PROTECTED]>
Date: Mon, 16 Jun 2008 14:40:35 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/B/B/Deparse.pm#196 edit
... //depot/perl/ext/B/t/deparse.t#38 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#196 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm#195~33851~ 2008-05-18 01:37:02.000000000 -0700
+++ perl/ext/B/B/Deparse.pm 2008-06-16 07:13:58.000000000 -0700
@@ -4802,6 +4802,8 @@
use constant E2BIG => ($!=7); $y = E2BIG; print $y, 0+$y;
+ use constant H => { "#" => 1 }; H->{"#"};
+
=item *
An input file that uses source filtering probably won't be deparsed into
@@ -4818,6 +4820,10 @@
which is not, consequently, deparsed correctly.
+ foreach my $i (@_) { 0 }
+ =>
+ foreach my $i (@_) { '???' }
+
=item *
Lexical (my) variables declared in scopes external to a subroutine
==== //depot/perl/ext/B/t/deparse.t#38 (text) ====
Index: perl/ext/B/t/deparse.t
--- perl/ext/B/t/deparse.t#37~33851~ 2008-05-18 01:37:02.000000000 -0700
+++ perl/ext/B/t/deparse.t 2008-06-16 07:13:58.000000000 -0700
@@ -27,7 +27,7 @@
require feature;
feature->import(':5.10');
}
-use Test::More tests => 61;
+use Test::More tests => 64;
use B::Deparse;
my $deparse = B::Deparse->new();
@@ -420,3 +420,15 @@
# 54 interpolation in regexps
my($y, $t);
/x${y}z$t/;
+####
+# SKIP ?$B::Deparse::VERSION <= 0.87 && "TODO new undocumented cpan-bug #33708"
+# 55 (cpan-bug #33708)
+%{$_ || {}}
+####
+# SKIP ?$B::Deparse::VERSION <= 0.87 && "TODO hash constants not yet fixed"
+# 56 (cpan-bug #33708)
+use constant H => { "#" => 1 }; H->{"#"}
+####
+# SKIP ?$B::Deparse::VERSION <= 0.87 && "TODO optimized away 0 not yet fixed"
+# 57 (cpan-bug #33708)
+foreach my $i (@_) { 0 }
End of Patch.
