diff options
| author | ivan <ivan> | 2008-05-30 01:38:03 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-05-30 01:38:03 +0000 |
| commit | 44353b07fd20146fbb8145680bd16d54e76178ad (patch) | |
| tree | 6b1f010f314bb429682a6d6261fdf0911b6f1584 | |
| parent | 5080186a0e7e007da07ca936f7858b088a08b897 (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 |