[Bast-commits] r4353 - trunk/Devel-REPL/lib/Devel/REPL/Plugin/B

[nothingmuch at dev.catalyst.perl.org]

Author: nothingmuch
Date: 2008-05-07 08:16:52 +0100 (Wed, 07 May 2008)
New Revision: 4353

Modified:
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/B/Concise.pm
Log:
make mangling optional in B::Concise plugin

Modified: trunk/Devel-REPL/lib/Devel/REPL/Plugin/B/Concise.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/B/Concise.pm	2008-05-07 00:43:52 UTC (rev 4352)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/B/Concise.pm	2008-05-07 07:16:52 UTC (rev 4353)
@@ -28,15 +28,17 @@
 
   die unless $code;
 
-  my $sub = $self->compile($code, no_mangling => 1);
+  my %opts = map { $_ => 1 } (split /\s+/, $opts);
 
+  my $sub = $self->compile($code, no_mangling => !delete($opts{"-mangle"}) );
+
   if ( $self->is_error($sub) ) {
     return $self->format($sub);
   } else {
     open my $fh, ">", \my $out;
     {
       local *STDOUT = $fh;
-      B::Concise::compile((split /\s+/, $opts), $sub)->();
+      B::Concise::compile(keys %opts, $sub)->();
     }
 
     return $out;