removed { from regex in sub name check

stevieb9 · Jan 12, 2016 · f4ba01d · f4ba01d
1 parent c6f86a8
commit f4ba01d
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/lib/Devel/Examine/Subs.pm b/lib/Devel/Examine/Subs.pm
@@ -328,16 +328,14 @@ sub add_functionality {
 
     my $sub_name;
 
-    print "***$code[0]***\n";
     if ($code[0] =~ /sub\s+(\w+)/){
-        print "IN HERE!\n";
         $sub_name = $1;
     }
     else {
+        print "IN ELSE\n";
         croak "add_functionality() couldn't extract the sub name.";
     }
 
-    print "*** $sub_name\n";
     my $rw = File::Edit::Portable->new;
 
     $rw->splice(file => $file, insert => \@code, line => $start_writing);