..DBI.so: undefined symbol: PL_tainting at.. while perl script compilation

[Tomasz Kolaj]

Hello,

After system upgrade perl script used to authenticate clients by postgres fail
while radiusd is loading:

(log also at http://pastebin.com/m46849dbe)




baza raddb # radiusd -f
Can't load '/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux/auto/DBI/DBI.so'
for module DBI:
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux/auto/DBI/DBI.so: undefined
symbol: PL_tainting at /usr/lib64/perl5/5.8.8/x86_64-linux/DynaLoader.pm line
230.
 at /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux/DBI.pm line 263
BEGIN failed--compilation aborted at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux/DBI.pm line 263.
Compilation failed in require at /etc/raddb/example.pl line 6.
BEGIN failed--compilation aborted at /etc/raddb/example.pl line 6.

baza raddb # head -n 6 example.pl
#!/usr/bin/perl


use strict;
#use Pg;
use DBI;



modules/perl file contains:
perl {
    module = /etc/raddb/example.pl
    func_authenticate = authenticate
    func_authorize = authorize

    max_clones = 32
    start_clones = 32
    min_spare_clones = 0
    max_spare_clones = 32
    cleanup_delay = 5
    max_request_per_clone = 0
}


Reproducible: Always

Steps to Reproduce:
1.Upgrade system (perl, postgres, freeradius), do perl-upgrade all
2.Configure freeradius to use example.pl as authenticate system
3.run radiusd

Actual Results:  
Can't load '/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux/auto/DBI/DBI.so'
for module DBI:
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux/auto/DBI/DBI.so: undefined
symbol: PL_tainting at /usr/lib64/perl5/5.8.8/x86_64-linux/DynaLoader.pm line
230.
 at /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux/DBI.pm line 263
BEGIN failed--compilation aborted at
/usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux/DBI.pm line 263.
Compilation failed in require at /etc/raddb/example.pl line 6.
BEGIN failed--compilation aborted at /etc/raddb/example.pl line 6.


Regards,
-- 
Tomasz Kolaj
ABP Computer