| Subject: | [PATCH] avoid set $@ when "use Cache::Memcached" |
Very minor annoyance: for avoid set $@ when eval "use Cache::Memcached"
( Cache::Memcached::GetParserXS not installed ):
--- /usr/local/lib/perl5/site_perl/5.8.8/Cache/Memcached.pm 2007-07-17
21:47:40.000000000 +0400
+++ Memcached.pm 2008-06-20 15:22:15.000000000 +0400
@@ -41,8 +41,10 @@ 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 $HAVE_XS = 0;
+unless ($ENV{NO_XS} ) {
+ $HAVE_XS = eval "use Cache::Memcached::GetParserXS; 1;";
+ }
my $parser_class = $HAVE_XS ? "Cache::Memcached::GetParserXS" :
"Cache::Memcached::GetParser";
if ($ENV{XS_DEBUG}) {