From 3d2530a7d08dfae1473015d96d7394dc15b86ce1 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 21 Aug 2001 00:39:07 +0000 Subject: [PATCH] fix some silly syntax errors --- FS/FS/svc_acct.pm | 4 ++-- FS/FS/svc_domain.pm | 4 ++-- FS/FS/svc_forward.pm | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 85b4888b2..97117b524 100644 --- 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 82b1ef159..4d652f8d3 100644 --- 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 9ff2b857a..288ab3408 100644 --- 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 -- 2.11.0