Are we using the bug tracker at rt.cpan.org or rt.openfoundry.org?

I found the /usr/local/share/perl/.../auto/foo.so problem in
Module::ScanDeps::DataFeed.  It appears to have been introduced in
0.66 as part of the trailing backslash fix.

--- fixed/Module/ScanDeps/DataFeed.pm   2007-01-15 18:24:18.000000000 -0800
+++ broken/Module/ScanDeps/DataFeed.pm  2006-09-24 01:40:52.000000000 -0700
@@ -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;



On a slightly unrelated note, just below this last line, I see

    my @dl_bs = @dl_so;
    s/(\.so|\.dll)$/\.bs/ for @dl_bs;

Should that also include '\.bundle'?

--Eric
-- 
"Everything goes wrong all at once."
--Quantized Revision of Murphy's Law
---------------------------------------------------
    http://scratchcomputing.com
---------------------------------------------------

Reply via email to