[rt.cpan.org #75750] PAR::Filter::Bleach is broken

Tue Mar 13 18:17:26 2012: Request 75750 was acted upon.
Transaction: Ticket created by MOB
       Queue: PAR-Packer
     Subject: PAR::Filter::Bleach is broken
   Broken in: 0.969_01, 0.970, 0.973, 0.975, 0.976, 0.977, 0.978, 0.979, 0.980, 0.982, 0.989_01, 0.991, 0.992_01, 0.992_02, 0.992_03, 0.992_04, 0.992_05, 0.992_06, 1.000, 1.001, 1.002, 1.003, 1.004, 1.005, 1.006, 1.007, 1.008, 1.009, 1.010, 1.011, 1.012, 1.013
    Severity: Normal
       Owner: Nobody
  Requestors: MOB@cpan.org
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=75750 >


The apply method PAR::Filter::Bleach is missing a step that makes the 
whole package useless (unless the purpose of the package is to make code 
unrunnable, in which case it is fine ;-) ).

Before the "pack" statement in

    $_=<<'';y;\r\n;;d;$_=pack'b*',$_;$_=eval;$@&&die$@;$_

you need to convert the input string from whitespace back to binary 
digits:


    $_=<<'';y;\r\n;;d;y; \t;01;;$_=pack'b*',$_;$_=eval;$@&&die$@;$_

reference: http://stackoverflow.com/questions/9689108/how-to-unbleach-
this-perl-file

• [rt.cpan.org #75750] PAR::Filter::Bleach is broken by Roderich Schupp via RT
• [rt.cpan.org #75750] PAR::Filter::Bleach is broken by Marty O'Brien via RT