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

diff --git a/samples/brd.pl b/samples/brd.pl
index f49a8eb..4f7ca74 100755
--- a/samples/brd.pl
+++ b/samples/brd.pl
@@ -25,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";