| Subject: | -d option does not work |
Dictionary file's contents is read in an arrayref, not in a plain scalar.
It results in "The symbol dictionary is empty!" error when trying to use
external dictionary file with -d option. Here is a patch.
--- /usr/lib/perl5/site_perl/5.8.8/B/Deobfuscate.pm.bak 2008-02-28
15:33:21.000000000 +0300
+++ /usr/lib/perl5/site_perl/5.8.8/B/Deobfuscate.pm 2008-02-28
15:33:43.000000000 +0300
@@ -64,7 +64,7 @@
open my $fh, '<', $dict_file
or confess "Cannot open dictionary $dict_file: $!";
local $/; ## no critic
- $dict_data = [<$fh>];
+ $dict_data = join '', <$fh>;
}
else {
LOAD_DICTIONARY_MODULE: