[ljcom] r10444: LJSUP-8704 (make moveucluster more speci...

U   trunk/cgi-bin/LJ/Worker/UserManage/UsersAutoPurge.pm

Modified: trunk/cgi-bin/LJ/Worker/UserManage/UsersAutoPurge.pm
===================================================================
--- trunk/cgi-bin/LJ/Worker/UserManage/UsersAutoPurge.pm	2011-04-26 10:20:37 UTC (rev 10443)
+++ trunk/cgi-bin/LJ/Worker/UserManage/UsersAutoPurge.pm	2011-04-27 00:40:38 UTC (rev 10444)
@@ -7,7 +7,7 @@
 sub work {
     my $dbr = LJ::get_dbh(qw(slow master));
     die 'cannot get global cluster slow handle'
-        unless $dbh;
+        unless $dbr;
     $dbr->{'RaiseError'} = 1;
 
     my @subqueries;