X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FB%2FConcise.pm;h=97ec791259b7e9b3c8a2648a24b6c5f7ee4c3d5e;hb=9c3c6bc8dea98cb4955deff23ccb9bae2a2992cd;hp=b26216460667094036996155ae256d0e7a1e371e;hpb=3d22167c1a074925fcfc1d69b31b4d27b358195e;p=p5sagit%2FDevel-REPL.git

diff --git a/lib/Devel/REPL/Plugin/B/Concise.pm b/lib/Devel/REPL/Plugin/B/Concise.pm
index b262164..97ec791 100644
--- a/lib/Devel/REPL/Plugin/B/Concise.pm
+++ b/lib/Devel/REPL/Plugin/B/Concise.pm
@@ -28,7 +28,9 @@ sub expr_command_concise {
 
   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);
@@ -36,7 +38,7 @@ sub expr_command_concise {
     open my $fh, ">", \my $out;
     {
       local *STDOUT = $fh;
-      B::Concise::compile((split /\s+/, $opts), $sub)->();
+      B::Concise::compile(keys %opts, $sub)->();
     }
 
     return $out;