diff options
| author | ivan <ivan> | 2000-06-29 10:51:52 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-06-29 10:51:52 +0000 |
| commit | 543ac5d57838319516d325dbeac898f111065bc3 (patch) | |
| tree | 01a3fa2ac3e107b53719b0fcc0264001cf1a6820 /bin/svc_acct_sm.import | |
| parent | 958222ad6b9e290ef4db7e0ab3f1ead6bd3fcb7f (diff) | |
oops, silly mistake
Diffstat (limited to 'bin/svc_acct_sm.import')
| -rwxr-xr-x | bin/svc_acct_sm.import | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/bin/svc_acct_sm.import b/bin/svc_acct_sm.import index 8777abe7e..349c4f26c 100755 --- a/bin/svc_acct_sm.import +++ b/bin/svc_acct_sm.import @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_acct_sm.import,v 1.6 2000-06-29 10:48:25 ivan Exp $ +# $Id: svc_acct_sm.import,v 1.7 2000-06-29 10:51:52 ivan Exp $ # # ivan@sisd.com 98-mar-9 # @@ -16,7 +16,10 @@ # ivan@sisd.com 98-jul-13 # # $Log: svc_acct_sm.import,v $ -# Revision 1.6 2000-06-29 10:48:25 ivan +# Revision 1.7 2000-06-29 10:51:52 ivan +# oops, silly mistake +# +# Revision 1.6 2000/06/29 10:48:25 ivan # make svc_acct_sm skip blank lines in sendmail import # # Revision 1.5 2000/02/03 05:16:52 ivan @@ -129,8 +132,9 @@ END sub getvalue { my $prompt = shift; $^W=0; #Term::Query isn't -w-safe - query $prompt, ''; + my $data = query $prompt, ''; $^W=1; + $data; } print "\n\n"; |