diff options
Diffstat (limited to 'bin/cle.pl')
| -rwxr-xr-x | bin/cle.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/bin/cle.pl b/bin/cle.pl index 03f8785f7cd..f72bf44674e 100755 --- a/bin/cle.pl +++ b/bin/cle.pl @@ -11,7 +11,6 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use strict; use Cwd; use File::Basename; -use Sys::Hostname; if ( $^O eq 'VMS' ) { require VMS::Filespec; @@ -111,9 +110,10 @@ sub getExecutePath { sub getDefaultDomain { my($domain) = undef; - my($host) = hostname(); + my($host) = `hostname`; if (defined $host) { + chop($host); ## First try the hostname if ($host =~ /[^\.]+\.(.*)/) { $domain = $1; @@ -270,8 +270,7 @@ my($status, $error, $unknown) = $editor->edit($file, @dirs); if (defined $unknown) { my(@uarray) = @$unknown; if ($#uarray >= 0) { - print "WARNING: The following files are unknown to the ", - "revsion control system:\n"; + print "WARNING: The following files are unknown to CVS:\n"; foreach my $unk (@uarray) { print "$unk\n"; } |