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: [email protected]
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
