Make invite code distribution work in production again.
Patch by mark.
diffs (16 lines):
diff -r 019a523054f5 -r 184bda4c9784 cgi-bin/ljdb.pl
--- a/cgi-bin/ljdb.pl Sun May 17 02:42:16 2009 +0000
+++ b/cgi-bin/ljdb.pl Sun May 17 02:48:00 2009 +0000
@@ -521,6 +521,12 @@ sub foreach_cluster {
sub foreach_cluster {
my $coderef = shift;
my $opts = shift || {};
+
+ # have to include this via an eval so it doesn't actually get included
+ # until someone calls foreach cluster. at which point, if they're in web
+ # context, it will fail.
+ eval "use LJ::DBUtil; 1;";
+ die $@ if $@;
foreach my $cluster_id (@LJ::CLUSTERS) {
my $dbr = ($LJ::IS_DEV_SERVER) ?
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
