X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FMisc%2Fprune.pm;h=3f0c79d00009274b7a7156012051dcec84608fa7;hb=b5c4237a34aef94976bc343c8d9e138664fc3984;hp=371f31cbbef0671303e90244e76f7c02d33b7a36;hpb=5e05724a635a22776f1b973f5d7e77989da4e048;p=freeside.git

diff --git a/FS/FS/Misc/prune.pm b/FS/FS/Misc/prune.pm
index 371f31cbb..3f0c79d00 100644
--- a/FS/FS/Misc/prune.pm
+++ b/FS/FS/Misc/prune.pm
@@ -22,6 +22,10 @@ use FS::Misc::prune qw(prune_applications);
 
 prune_applications();
 
+=head1 SUBROUTINES
+
+=over 4
+
 =item prune_applications OPTION_HASH
 
 Removes applications of credits to refunds in the event that the database
@@ -34,9 +38,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