Index: /branches/release-30/lib/MT/Memcached.pm
===================================================================
--- /branches/release-30/lib/MT/Memcached.pm (revision 1197)
+++ /branches/release-30/lib/MT/Memcached.pm (revision 1414)
@@ -42,6 +42,8 @@
 sub cleanup {
     undef $Instance;
-    Cache::Memcached->disconnect_all
-        if MT->config->MemcachedDriver eq 'Cache::Memcached';
+    my $driver_class = MT->config->MemcachedDriver;
+    if ($driver_class->can('disconnect_all')) {
+        $driver_class->disconnect_all;
+    }
 }