I have it narrowed down, don't understand but better than nothing :)
This code breaks, remove the flock and everything works great, I'm using the
flock because it was the example I could find for making sure a win32
process doesn't run more than once.
use strict;
use DBI;
use Fcntl ':flock';
#Lets make sure we aren't already running
open SELF, '<', $0 or exit;
flock SELF, LOCK_EX | LOCK_NB or exit;
print "Test1\n";
my $DSN = qq~driver={SQL Server};Server=test\\test;
database=test;uid=test;pwd=test;~;
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die "Can't connect to
DB:$DBI::errstr\n";
print "Test2\n";
On Thu, Mar 10, 2011 at 3:31 PM, Roderich Schupp <
[email protected]> wrote:
> On Wed, Mar 9, 2011 at 3:14 PM, Travis Williams <[email protected]> wrote:
> > I'm using the -T option to force the cache name so I don't have to guess
> > where it is at :) I only started doing that during troubleshooting
>
> OK
>
> > extracted lib/auto/DBD/ODBC/ODBC.dll to
> > C:\DOCUME~1\Travis\LOCALS~1\Temp\par-Tr
> > vis\cache-Cencal\3d2b5e28.dll => 4
> > error was (An operation was attempted on something that is not a socket)
>
> That is VERY weird. Looking at the code in PAR::Heavy and Archive::Zip and
> friends I see nothing that could cause this.
>
> Also, a simple minded test script (using DBD::ODBC and Crypt::Blowfish)
> here on Strawberry 5.12.2 works as intended. Can you try to reduce your
> script to something smallish, but still failing?
>
> Cheers, Roderich
>
