diff options
-rw-r--r-- | lib/Net/hostent.t | 4 | ||||
-rwxr-xr-x | t/io/fs.t | 2 |
2 files changed, 3 insertions, 3 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"; } } @@ -102,7 +102,7 @@ $newmode = (($^O eq 'MSWin32') || ($^O eq 'NetWare')) ? 0444 : 0777; is(chmod($newmode,'a'), 1, "chmod succeeding"); SKIP: { - skip("no link", 9) unless $has_link; + skip("no link", 7) unless $has_link; ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, $blksize,$blocks) = stat('c'); |