[memcached] sky, r306: Change CarpLevel to throw exception one ...

[commits at code.sixapart.com]

Change CarpLevel to throw exception one call higher up.

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


Modified: trunk/api/perl/lib/Cache/Memcached.pm
===================================================================
--- trunk/api/perl/lib/Cache/Memcached.pm	2006-07-18 04:31:53 UTC (rev 305)
+++ trunk/api/perl/lib/Cache/Memcached.pm	2006-08-01 04:34:54 UTC (rev 306)
@@ -437,6 +437,7 @@
     $key = ref $key ? $key->[1] : $key;
 
     if (ref $val) {
+        local $Carp::CarpLevel = 2;
         $val = Storable::nfreeze($val);
         $flags |= F_STORABLE;
     }