perl memcache hangs with -T

[Cahill, Earl]

So I try this code

 

#!/usr/bin/perl -w

 

use Cache::Memcached;

 

my $mem = Cache::Memcached->new({

  servers => ['localhost:11211'],

});

$mem->set('key', 'value');

print $mem->get('key') . "\n";

 

and it works just fine, but then when I just add the -T

 

#!/usr/bin/perl -T -w

 

use Cache::Memcached;

 

my $mem = Cache::Memcached->new({

  servers => ['localhost:11211'],

});

$mem->set('key', 'value');

print $mem->get('key') . "\n";

 

then I never get anything back, and the cpu for that process near instantly
goes to nearly 100%.  I haven't dug into the perl code, but thought I would
put this out there for ideas/suggestions.

 

Thanks,

Earl

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.danga.com/pipermail/memcached/attachments/20050414/70510687/attachment.htm