[PATCH perl@13661] VMS test fix-ups

This plus 13662 get us back to 100% passing for a default configuration 
using Compaq C V6.4-005 on OpenVMS Alpha V7.2-1.

--- lib/Net/hostent.t;-0        Sun Dec  9 11:20:17 2001
+++ lib/Net/hostent.t   Wed Dec 12 15:46:28 2001
@@ -51,7 +51,7 @@
     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 @@
     }
     else {
         ok( !$in_alias );
-        print "# ",$h->name, " ", join (",", @{$h->aliases}), "\n";
+        print "# " . $h->name . " " . join (",", @{$h->aliases}) . "\n";
     }
 }
--- t/io/fs.t;-0        Wed Dec 12 00:42:52 2001
+++ t/io/fs.t   Wed Dec 12 16:15:10 2001
@@ -102,7 +102,7 @@
 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');
[end]

• [PATCH perl@13661] VMS test fix-ups by Craig A. Berry
• Re: [PATCH perl@13661] VMS test fix-ups by Jarkko Hietaniemi