diff options
| author | ivan <ivan> | 2008-05-30 01:38:01 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-05-30 01:38:01 +0000 |
| commit | 0182501c5e99b67911bee1f9393cd494f4e00f36 (patch) | |
| tree | 1c53143cd64675af11cfac8bd2fb59c4866a0ec2 | |
| parent | 015f6132d77de12b17c713254900e2a5e8a3a8a0 (diff) | |
fix a missing semicolon bug only triggered when running prune_applications not in debug mode...
| -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 |