diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-12-12 10:27:48 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-12 21:33:50 +0000 |
| commit | 2f3b333f8f33a996945618e3a6de2f8c72c3ba4e (patch) | |
| tree | 28c50127f0fe43c92abcf59e8cc3eed9f39b118c /lib/Net/hostent.t | |
| parent | b29a15aadb98714c39b01a95a7e133360b3d7212 (diff) | |
| download | perl-2f3b333f8f33a996945618e3a6de2f8c72c3ba4e.tar.gz | |
VMS test fix-ups
Message-Id: <5.1.0.14.2.20011212154350.01be3618@exchi01>
p4raw-id: //depot/perl@13664
Diffstat (limited to 'lib/Net/hostent.t')
| -rw-r--r-- | lib/Net/hostent.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/hostent.t b/lib/Net/hostent.t index b97d723fda..0a6a79eeda 100644 --- a/lib/Net/hostent.t +++ b/lib/Net/hostent.t @@ -51,7 +51,7 @@ SKIP: { skip "Windows will return the machine name instead of 'localhost'", 2 if $^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'cygwin'; - print "# name = ",$h->name, ", aliases = ", join (",", @{$h->aliases}), "\n"; + print "# name = " . $h->name . ", aliases = " . join (",", @{$h->aliases}) . "\n"; my $in_alias; unless ($h->name =~ /^localhost(?:\..+)?$/i) { @@ -82,6 +82,6 @@ SKIP: { } else { ok( !$in_alias ); - print "# ",$h->name, " ", join (",", @{$h->aliases}), "\n"; + print "# " . $h->name . " " . join (",", @{$h->aliases}) . "\n"; } } |