# New Ticket Created by Matt Fowles
# Please include the string: [perl #24830]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=24830 >
All~
Indeed this fix works, so I submitted it through the official channels
for you.
diff attached...
Matt
Lars Balker Rasmussen wrote:
>Matt Fowles <[EMAIL PROTECTED]> writes:
>
>
>>$ cat test.ldo
>>/usr/bin/ld: cannot find -lgdbm_compat
>>collect2: ld returned 1 exit status
>>
>>
>>Hope someone know more about this gdbm_compat thing then I do...
>>
>>I am running a relatively stock Debian testing box.
>>
>>
>
>Changing line 27 of config/inter/progs.pl to
>
> grep { $^O=~/VMS|MSWin/ || !/^-l(c|gdbm(_compat)?|dbm|ndbm|db)$/ }
>
>should help you along.
>
>I don't have a Debian box, but a friends "revision 5.0 version 8
>subversion 2 (Debian unstable)" reveals:
>
> % perl -le 'use Config; print $Config{libs}'
> -lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
>
>I have no idea why Debians perl is linked with gdbm_compat as well as
>gdbm.
>
>I suppose this is a patch :-)
>
>
Index: config/inter/progs.pl
===================================================================
RCS file: /cvs/public/parrot/config/inter/progs.pl,v
retrieving revision 1.15
diff -u -r1.15 progs.pl
--- config/inter/progs.pl 25 Sep 2003 15:53:56 -0000 1.15
+++ config/inter/progs.pl 7 Jan 2004 01:02:36 -0000
@@ -24,7 +24,7 @@
my $debug='n';
$libs=join ' ',
- grep { $^O=~/VMS|MSWin/ || !/^-l(c|gdbm|dbm|ndbm|db)$/ }
+ grep { $^O=~/VMS|MSWin/ || !/^-l(c|gdbm(_compat)?|dbm|ndbm|db)$/ }
split(' ', $libs);
# Try each alternative, until one works.
