fix some silly syntax errors

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 85b4888..97117b5 100644 (file)
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -7,7 +7,7 @@ use vars qw( @ISA $nossh_hack $conf $dir_prefix @shells $usernamemin
              @saltset @pw_set);
 use Carp;
 use FS::Conf;
-use FS::Record qw( qsearch qsearchs fields );
+use FS::Record qw( qsearch qsearchs fields dbh );
 use FS::svc_Common;
 use Net::SSH qw(ssh);
 use FS::part_svc;
@@ -628,7 +628,7 @@ sub email {
 
 =head1 VERSION
 
-$Id: svc_acct.pm,v 1.26 2001-08-20 11:04:38 ivan Exp $
+$Id: svc_acct.pm,v 1.27 2001-08-21 00:39:07 ivan Exp $
 
 =head1 BUGS
 

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index 82b1ef1..4d652f8 100644 (file)
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -4,7 +4,7 @@ use strict;
 use vars qw( @ISA $whois_hack $conf $smtpmachine
   $tech_contact $from $to @nameservers @nameserver_ips @template
   @mxmachines @nsmachines $soadefaultttl $soaemail $soaexpire $soamachine
-  $soarefresh $soaretry $qshellmachine
+  $soarefresh $soaretry $qshellmachine $nossh_hack
 );
 use Carp;
 use Mail::Internet;
@@ -533,7 +533,7 @@ sub submit_internic {
 
 =head1 VERSION
 
-$Id: svc_domain.pm,v 1.18 2001-08-20 13:10:31 ivan Exp $
+$Id: svc_domain.pm,v 1.19 2001-08-21 00:39:07 ivan Exp $
 
 =head1 BUGS
 

diff --git a/FS/FS/svc_forward.pm b/FS/FS/svc_forward.pm
index 9ff2b85..288ab34 100644 (file)
--- a/FS/FS/svc_forward.pm
+++ b/FS/FS/svc_forward.pm
@@ -226,7 +226,7 @@ sub replace {
       unless $nossh_hack;
   }
   #end subroutinable bits
-  }
+
   '';
 }
 
@@ -299,7 +299,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: svc_forward.pm,v 1.5 2001-08-20 11:04:38 ivan Exp $
+$Id: svc_forward.pm,v 1.6 2001-08-21 00:39:07 ivan Exp $
 
 =head1 BUGS