X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fbrd.pl;h=4f7ca7490565ec4d6449c056a08fe8076151ae39;hb=7dfb54498a29abb83ba502c4f7dfae65d090aecf;hp=9e0f790801abec0525fe624072a607f849fece12;hpb=e531c89b3ecbc5d58156f71c5324f5f253459864;p=perl%2Fmodules%2FB-RecDeparse.git

diff --git a/samples/brd.pl b/samples/brd.pl
index 9e0f790..4f7ca74 100755
--- a/samples/brd.pl
+++ b/samples/brd.pl
@@ -3,12 +3,10 @@
 use strict;
 use warnings;
 
-use lib qw{blib/lib};
+use lib qw<blib/lib>;
 use B::RecDeparse;
-# use B::Deparse;
 
 my $deparser = B::RecDeparse->new(deparse => [ '-sCi0v1' ], level => 1);
-# my $deparser = B::Deparse->new('-sCi0v1');
 
 sub spec (&) {
  return unless defined $_[0] and ref $_[0] eq 'CODE';
@@ -27,4 +25,4 @@ sub fma ($$$) { add +(mul $_[0], $_[1]), $_[2] }
 
 print STDERR '### ', fma(1, 3, 2), "\n";
 my $sfma = spec sub { my $x = \&mul; fma $_[0], 3, $_[1] };
-print STDERR '### ', $sfma->(1, 2), "\n"; 
+print STDERR '### ', $sfma->(1, 2), "\n";