From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Mon, 26 May 1997 11:45:39 +0000 (+0000)
Subject: Fix ppname when saving subs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=616696a8a1d7b1372381edefcab87b35f857e6af;p=p5sagit%2Fp5-mst-13.2.git

Fix ppname when saving subs.

p4raw-id: //depot/perlext/Compiler@23
---

diff --git a/B/C.pm b/B/C.pm
index 7f796a4..78c80e7 100644
--- a/B/C.pm
+++ b/B/C.pm
@@ -541,11 +541,10 @@ sub B::CV::save {
     if ($$root) {
 	warn sprintf("saving op tree for CV 0x%x, root = 0x%x\n",
 		     $$cv, $$root) if $debug_cv;
-	my $ppname;
+	my $ppname = "";
 	if ($$gv) {
 	    my $stashname = $gv->STASH->NAME;
 	    my $gvname = $gv->NAME;
-	    my $ppname = "";
 	    if ($gvname ne "__ANON__") {
 		$ppname = (${$gv->FORM} == $$cv) ? "pp_form_" : "pp_sub_";
 		$ppname .= ($stashname eq "main") ?