Changeset 556

Timestamp:

05/09/07 23:43:46 (2 years ago)

Author:

hachi

Message:

Move check for XS module availaiblity to below the definition of $VERSION. GetParserXS was depending on a specific version of Cache::Memcached, and the version check was failing in the eval searching for it. Silent problem, now fixed.

Files:

• trunk/api/perl/lib/Cache/Memcached.pm (modified) (2 diffs)

trunk/api/perl/lib/Cache/Memcached.pm

@@ -19 +19 @@
-use Errno qw( EINPROGRESS EWOULDBLOCK EISCONN );
-use Cache::Memcached::GetParser;
-my $HAVE_XS = eval "use Cache::Memcached::GetParserXS; 1;";
-$HAVE_XS = 0 if $ENV{NO_XS};
-
-my $parser_class = $HAVE_XS ? "Cache::Memcached::GetParserXS" : "Cache::Memcached::GetParser";
-if ($ENV{XS_DEBUG}) {
-    print "using parser: $parser_class\n";
-}
-
-use fields qw{
-    debug no_rehash stats compress_threshold compress_enable stat_callback
@@ -48 +40 @@
-BEGIN {
-    $HAVE_ZLIB = eval "use Compress::Zlib (); 1;";
+}
+
+my $HAVE_XS = eval "use Cache::Memcached::GetParserXS; 1;";
+$HAVE_XS = 0 if $ENV{NO_XS};
+
+my $parser_class = $HAVE_XS ? "Cache::Memcached::GetParserXS" : "Cache::Memcached::GetParser";
+if ($ENV{XS_DEBUG}) {
+    print "using parser: $parser_class\n";
-}
-