Output is:use strict; use warnings; use Config; use DBI; my $dsn = 'DBI:ODBC:somedb'; my $db_user = ''; my $db_pass = ''; my $dbh = DBI->connect($dsn,$db_user,$db_pass ) or die $DBI::errstr; my $loh = $dbh->selectall_hashref('select 1 as a, 2 as b','a'); print "checking d_symlink\n"; print "found\n" if ($Config{d_symlink}); print "checking d_readlink\n"; print "found\n" if ($Config{d_readlink}); print "checking d_link\n"; print "found\n" if ($Config{d_link}); print "checking d_symlink && d_readlink\n"; print "found\n" if (($Config{d_symlink} && $Config{d_readlink})); print "checking (d_symlink && d_readlink) || d_link)\n"; print "found\n" if (($Config{d_symlink} && $Config{d_readlink}) || $Co +nfig{d_link}); print "All done.\n"; $dbh->disconnect;
checking d_symlink checking d_readlink checking d_link found checking d_symlink && d_readlink checking (d_symlink && d_readlink) || d_link) found Attempt to free unreferenced scalar: SV 0x1a61cdc, Perl interpreter: 0 +x223ecc at copytest.pl line 26. All done.
In reply to Re: Attempt to free unreferenced scalar in File::Copy (ActivePerl) - problem is between Config and DBI
by imp
in thread Attempt to free unreferenced scalar in File::Copy (ActivePerl)
by EvanK
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |