[freeside-commits] freeside/FS/FS/Misc prune.pm,1.1.2.2,1.1.2.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/Misc
In directory wavetail.420.am:/tmp/cvs-serv11314/FS/FS/Misc

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	prune.pm 
Log Message:
fix a missing semicolon bug only triggered when running prune_applications not in debug mode...

Index: prune.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Misc/prune.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -d -r1.1.2.2 -r1.1.2.3
--- prune.pm	1 Mar 2007 20:12:17 -0000	1.1.2.2
+++ prune.pm	30 May 2008 01:38:03 -0000	1.1.2.3
@@ -34,9 +34,10 @@
 
 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