From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 12 Dec 2001 16:27:48 +0000 (-0600)
Subject: VMS test fix-ups
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f3b333f8f33a996945618e3a6de2f8c72c3ba4e;p=p5sagit%2Fp5-mst-13.2.git

VMS test fix-ups
Message-Id: <5.1.0.14.2.20011212154350.01be3618@exchi01>

p4raw-id: //depot/perl@13664
---

diff --git a/lib/Net/hostent.t b/lib/Net/hostent.t
index b97d723..0a6a79e 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";
     }
 }
diff --git a/t/io/fs.t b/t/io/fs.t
index 70ee3ae..db58cd2 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -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');