Re: Config{libpth} substitution problem

It is a bug in strawberry portable perl - probably the same as 
https://rt.cpan.org/Ticket/Display.html?id=68937

According to my testing the enclosed portable_libpth_ugly_hack.diff 
should fix it

--
kmx


On 31.10.2011 12:30, chm wrote:
> For reference, this problem was for the portable edition at
>
> http://strawberryperl.com/download/5.12.3.0/strawberry-perl-5.12.3.0-portable.zip 
>
>
> with the following perl -V output:
>
>> Summary of my perl5 (revision 5 version 12 subversion 3) configuration:
>>
>>   Platform:
>>     osname=MSWin32, osvers=5.1, archname=MSWin32-x86-multi-thread
>>     uname='Win32 strawberryperl 5.12.3.0 #1 Sun May 15 09:44:53 2011 
>> i386'
>>     config_args='undef'
>>     hint=recommended, useposix=true, d_sigaction=undef
>>     useithreads=define, usemultiplicity=define
>>     useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
>>     use64bitint=undef, use64bitall=undef, uselongdouble=undef
>>     usemymalloc=n, bincompat5005=undef
>>   Compiler:
>>     cc='gcc', ccflags =' -s -O2 -DWIN32 -DHAVE_DES_FCRYPT  
>> -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS 
>> -fno-strict-aliasing -mms-bitfields -DPERL_MSVCRT_READFIX',
>>     optimize='-s -O2',
>>     cppflags='-DWIN32'
>>     ccversion='', gccversion='4.4.3', gccosandvers=''
>>     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
>>     d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=12
>>     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='long 
>> long', lseeksize=8
>>     alignbytes=8, prototype=define
>>   Linker and Libraries:
>>     ld='g++.exe', ldflags ='-s 
>> -L"C:\chm\strawberry\perl_512_3_0\perl\lib\CORE" 
>> -L"C:\chm\strawberry\perl_512_3_0\c\lib"'
>>     libpth=C:\chm\strawberry\perl_512_3_0\c\lib
>>     libs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 
>> -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 
>> -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32
>>     perllibs=-lmoldname -lkernel32 -luser32 -lgdi32 -lwinspool 
>> -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid 
>> -lws2_32 -lmpr -lwinmm -lversion -lodbc32 -lodbccp32 -lcomctl32
>>     libc=, so=dll, useshrplib=true, libperl=libperl512.a
>>     gnulibc_version=''
>>   Dynamic Linking:
>>     dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
>>     cccdlflags=' ', lddlflags='-mdll -s 
>> -L"C:\chm\strawberry\perl_512_3_0\perl\lib\CORE" 
>> -L"C:\chm\strawberry\perl_512_3_0\c\lib"'
>>
>> Characteristics of this binary (from libperl):
>>   Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV
>>                         PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS
>>                         PERL_MALLOC_WRAP PL_OP_SLAB_ALLOC USE_ITHREADS
>>                         USE_LARGE_FILES USE_PERLIO USE_PERL_ATOF
>>                         USE_SITECUSTOMIZE
>>   Built under MSWin32
>>   Compiled at May 15 2011 14:40:22
>>   @INC:
>>     C:/chm/strawberry/perl_512_3_0/perl/site/lib
>>     C:/chm/strawberry/perl_512_3_0/perl/vendor/lib
>>     C:/chm/strawberry/perl_512_3_0/perl/lib
>>     .
>
> Cheers,
> Chris
>
> On 10/31/2011 6:19 AM, Dmitry Karasik wrote:
>> Hello,
>>
>> I have I problem with building Prima on strawberry 5.12.3, which 
>> appears when I use
>> Strawberry installed in something other than c:/strawberry directory. 
>> The problem
>> didn't re-appear cleanly when I tried to take a clean vmware box, and 
>> install it there,
>> so I'm not 100% sure how to reproduce it. However a Prima user send 
>> that bug to me,
>> so there's something wrong not only on my machine.
>>
>> The problem is as such: Prima needs libgdi32.a, which is not found 
>> because $Config{libpth}
>> doesn't contain the path to it (it's in 
>> c:/somewhere_else/c/i686-w64-mingw32/lib ). However in Config.pm
>> there is this line:
>>
>>      libpth =>  'C:\\strawberry\\c\\lib 
>> C:\\strawberry\\c\\i686-w64-mingw32\\lib',
>>
>> which seems valid, but if I call either 'perl -V:libpth' or 'perl 
>> -MConfig -le "print $Config{libpth}"
>> I get printed
>>
>>      c:\somewhere_else\c\lib
>>
>> only. Some substitution gone wrong. To test this further I've 
>> temporarily removed Config.pm to see if some
>> other Config.pm gets picked, - no, it wasn't. Next, I've hacked a 
>> copy of Config.pm into Config2.pm (and renamed
>> it inside), and unsurprisingly, calling 'perl -MConfig2 -le "print 
>> $Config{libpth}' yielded just that
>> unsubstituted line:
>>
>>     C:\strawberry\c\lib C:\strawberry\c\i686-w64-mingw32\lib
>>
>> I tried to find where the substitution magic is executed to see if 
>> the problem is indeed there, but couldn't
>> find where it gets done.
>>
>> So I'll need your help here. If anyone can confirm that (and when) 
>> $Config{libpth} gets hacked, or point me
>> to the code where the magic is done, that'd be really appreciated.
>>
>
>

diff -ru portable.orig\perl\vendor\lib\Portable\Config.pm portable.new\perl\vendor\lib\Portable\Config.pm
--- portable.orig\perl\vendor\lib\Portable\Config.pm	Wed Apr 13 02:20:12 2011
+++ portable.new\perl\vendor\lib\Portable\Config.pm	Mon Oct 31 13:00:13 2011
@@ -32,7 +32,7 @@
 			and
 			length $conf->{$key}
 			and not
-			$key =~ /^ld/
+			$key =~ /(^ld|^libpth$)/
 		) {
 			$self->{$key} = $conf->{$key};
 			next;
@@ -42,7 +42,7 @@
 			$root, split /\//, $conf->{$key},
 		); #join path to directory of portable perl with value from config file
 	}
-	foreach my $key ( grep { /^ld/ } keys %$self ) { #linker config variables
+	foreach my $key ( grep { /(^ld|^libpth$)/ } keys %$self ) { #linker config variables
 		next unless defined $self->{$key};
 		$self->{$key} =~ s/\$(\w+)/$self->{$1}/g;
 	}
diff -ru portable.orig\portable.perl portable.new\portable.perl
--- portable.orig\portable.perl	Sun Feb 06 21:19:30 2011
+++ portable.new\portable.perl	Mon Oct 31 12:59:14 2011
@@ -56,10 +56,12 @@
   installvendorman3dir: ''
   installvendorscript: 'perl/bin'
   ld: g++.exe
-  lddlflags: '-mdll -s -L"$archlib\CORE" -L"$libpth"'
-  ldflags: '-s -L"$archlib\CORE" -L"$libpth"'
-  ldflags_nolargefiles: '-s -L"$archlib\CORE" -L"$libpth"'
-  libpth: c/lib
+  lddlflags: '-mdll -s -L"$archlib\CORE" -L"$_workaround1"'
+  ldflags: '-s -L"$archlib\CORE" -L"$_workaround1"'
+  ldflags_nolargefiles: '-s -L"$archlib\CORE" -L"$_workaround1"'
+  _workaround1: c/lib
+  _workaround2: c/i686-w64-mingw32/lib
+  libpth: $_workaround1 $_workaround2
   perlpath: perl/bin/perl.exe
   prefix: perl
   prefixexp: perl