diff options
| -rw-r--r-- | FS/FS/Misc/prune.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/Misc/prune.pm b/FS/FS/Misc/prune.pm index 371f31cbb..b6c3053b7 100644 --- a/FS/FS/Misc/prune.pm +++ b/FS/FS/Misc/prune.pm @@ -34,9 +34,10 @@ affected records is returned rather than actually deleting the records. sub prune_applications { my $options = shift; - my $dbh = dbh + my $dbh = dbh; local $DEBUG = 1 if exists($options->{debug}); + my $ccr = <<EOW; WHERE 0 = (select count(*) from cust_credit |