>>btw, any reason why you didn't use perl's link() and File::Copy to do the 
>>work? calling external shell is not a very clean way to code when you have 
>>an API to do that. 

>Perl's link() on Cygwin seems to copy mod_perl.a to libmod_perl.a, but at this 
>stage mod_perl.a is still a dummy lib and at the end we get nothing. 
>`ln -s` seems to create something like the shortcut on windows and it works.

And for File::Copy

Index: lib/Apache2/Build.pm
===================================================================
--- lib/Apache2/Build.pm        (revision 169434)
+++ lib/Apache2/Build.pm        (working copy)
@@ -1587,7 +1587,7 @@
     my $src = catfile $modperl_path, "$self->{MP_LIBNAME}.a";
     my $dst = catfile $modperl_path, "lib$self->{MP_LIBNAME}.a";
     qx{ln -s $src $dst} unless -e $dst;
-    qx{cp $dyna_filepath $modperl_path/libDynaLoader.a};
+    File::Copy::copy($dyna_filepath, "$modperl_path/libDynaLoader.a");
 
     $modperl_static_libs_cygwin = join ' ',
         "-L$modperl_path",


(I forgot to include it in the previous mail)

I didn't use File::Copy, because it's not use(d) at the beginning of Build.pm, 
so I thought it isn't loaded.

-----------------------------------------------------------------
http://host.GBG.bg - лидер в Уеб Хостинг решения и регистрация на Домейн имена

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to