# from Eric Wilhelm
# on Monday 15 January 2007 06:53 pm:
>--- fixed/Module/ScanDeps/DataFeed.pm
>+++ broken/Module/ScanDeps/DataFeed.pm
>...
>- print FH join(',', map("\n\t'$_'", map {s/\\$/\\\\/; $_} @inc));
>+ print FH join(',', map("\n\t'$_'", map {s/\\$/\\\\/} @inc));
Please forgive the backwardness of my previous patch. It is usually a
better idea to change things from being broken to being fixed.
--Eric
--
"It is impossible to make anything foolproof because fools are so
ingenious."
--Murphy's Second Corollary
---------------------------------------------------
http://scratchcomputing.com
---------------------------------------------------
--- broken/Module/ScanDeps/DataFeed.pm 2006-09-24 01:40:52.000000000 -0700
+++ fixed/Module/ScanDeps/DataFeed.pm 2007-01-15 19:06:00.000000000 -0800
@@ -64,7 +64,7 @@
print FH '@incarray = (' . "\n\t";
# inner map escapes trailing backslashes
- print FH join(',', map("\n\t'$_'", map {s/\\$/\\\\/} @inc));
+ print FH join(',', map("\n\t'$_'", map {s/\\$/\\\\/; $_} @inc));
print FH "\n);\n";
my @dl_bs = @dl_so;
