From a386dd2c5e8f16dcb71ee3df74d2b113e6758d90 Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Fri, 14 Apr 2017 17:33:43 -0400
Subject: [PATCH] make deparse do more for me

---
 lib/eval.pl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lib/eval.pl b/lib/eval.pl
index 282c8c4..911ccd1 100755
--- a/lib/eval.pl
+++ b/lib/eval.pl
@@ -180,7 +180,7 @@ no warnings;
       if( $@ ) { print STDOUT "Error: $@"; return }
 
       my $dp = B::Deparse->new("-p", "-q", "-x7", "-d");
-
+      local *B::Deparse::declare_hints = sub { '' };
       my @out;
 
       my $clean_out = sub {
@@ -190,11 +190,9 @@ no warnings;
         $ret =~ s/no warnings;//;
         $ret =~ s/\s+/ /g;
         $ret =~ s/\s*\}\s*$//;
-        $ret =~ s/\s*\$\^H\{[^}]+\}(\s+=\s+[^;]+;?)?\s*//g;
-        $ret =~ s/\s*BEGIN\s*\{\s*[^}]*\s*\}\s*/ /;
-        $ret =~ s/package botdeparse;//;
         $ret =~ s/no feature ':all';//;
         $ret =~ s/use feature [^;]+;//;
+        $ret =~ s/^\(\)//g;
         $ret =~ s/^\s+|\s+$//g;
         return $ret;
       };