From: Robin Houston <robin@cpan.org>
Date: Fri, 27 Apr 2001 19:15:14 +0000 (+0100)
Subject: non-block scopes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c102638c8fb55e92563d5ee4166f31857d9102fc;p=p5sagit%2Fp5-mst-13.2.git

non-block scopes
Message-ID: <20010427191514.A30951@puffinry.freeserve.co.uk>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index e8ebb39..7e57a58 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1024,7 +1024,22 @@ sub scopeop {
     }
 }
 
-sub pp_scope { scopeop(0, @_); }
+sub invoker {
+    my $caller = (caller(2))[3];
+    if ($caller eq "B::Deparse::deparse") {
+	return (caller(3))[3];
+    }
+    else {
+	return $caller;
+    }
+}
+
+sub pp_scope {
+    my ($self, $op, $cx) = @_;
+    my $body = scopeop(0, @_);
+    return $body if $cx > 0 || invoker() ne "B::Deparse::lineseq";
+    return "do {\n\t$body\n\b};";
+}
 sub pp_lineseq { scopeop(0, @_); }
 sub pp_leave { scopeop(1, @_); }
 
@@ -2347,6 +2362,8 @@ sub pp_null {
 	return $self->maybe_parens($self->deparse($op->first, 20) . " =~ "
 				   . $self->deparse($op->first->sibling, 20),
 				   $cx, 20);
+    } elsif ($op->flags & OPf_SPECIAL && $cx == 0 && !$op->targ) {
+	return "do {\n\t". $self->deparse($op->first, $cx) ."\n\b};";
     } else {
 	return $self->deparse($op->first, $cx);
     }