From: Stephen McCamant <smcc@mit.edu>
Date: Mon, 2 Jan 2006 18:52:24 +0000 (-0800)
Subject: Re: [perl #36837] B::Deparse fails when it comes to ByteLoader programs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ca8de376feb59246c85097e36edfd5df2e93aa3;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #36837] B::Deparse fails when it comes to ByteLoader programs
Message-ID: <17337.59112.502009.496275@conquest.OCF.Berkeley.EDU>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 958b137..4f87b2b 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1,5 +1,6 @@
 # B::Deparse.pm
-# Copyright (c) 1998-2000, 2002, 2003 Stephen McCamant. All rights reserved.
+# Copyright (c) 1998-2000, 2002, 2003, 2004, 2005, 2006 Stephen McCamant.
+# All rights reserved.
 # This module is free software; you can redistribute and/or modify
 # it under the same terms as Perl itself.
 
@@ -1188,6 +1189,7 @@ sub deparse_root {
     local(@$self{qw'curstash warnings hints'})
       = @$self{qw'curstash warnings hints'};
     my @kids;
+    return if null $op->first; # Can happen, e.g., for Bytecode without -k
     for (my $kid = $op->first->sibling; !null($kid); $kid = $kid->sibling) {
 	push @kids, $kid;
     }