From 74cd21baf7fc29801914a3767824113a904fad8f Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 23 Dec 2011 08:43:22 -0800
Subject: [PATCH] Deparse: remove special casing for main stash

This was to prevent infinite recursion, but the previous commit
added a more general mechanism, rendering this redundant.
---
 dist/B-Deparse/Deparse.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm
index 31fb376..d68da12 100644
--- a/dist/B-Deparse/Deparse.pm
+++ b/dist/B-Deparse/Deparse.pm
@@ -522,9 +522,7 @@ sub stash_subs {
 		$self->todo($cv, 1);
 	    }
 	    if (class($val->HV) ne "SPECIAL" && $key =~ /::$/) {
-		$self->stash_subs($pack . $key, $seen)
-		    unless $pack eq '' && $key eq 'main::';
-		    # avoid infinite recursion
+		$self->stash_subs($pack . $key, $seen);
 	    }
 	}
     }
-- 
2.7.4