Change 13664: [PATCH perl@13661] VMS test fix-ups

[Jarkko Hietaniemi]

Change 13664 by jhi@alpha on 2001/12/12 21:33:50

        Subject: [PATCH perl@13661] VMS test fix-ups
        From: "Craig A. Berry" <[EMAIL PROTECTED]>
        Date: Wed, 12 Dec 2001 16:27:48 -0600
        Message-Id: <5.1.0.14.2.20011212154350.01be3618@exchi01>

Affected files ...

.... //depot/perl/lib/Net/hostent.t#4 edit
.... //depot/perl/t/io/fs.t#37 edit

Differences ...

==== //depot/perl/lib/Net/hostent.t#4 (text) ====
Index: perl/lib/Net/hostent.t
--- perl/lib/Net/hostent.t.~1~  Wed Dec 12 14:45:06 2001
+++ perl/lib/Net/hostent.t      Wed Dec 12 14:45:06 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";
     }
 }

==== //depot/perl/t/io/fs.t#37 (xtext) ====
Index: perl/t/io/fs.t
--- perl/t/io/fs.t.~1~  Wed Dec 12 14:45:06 2001
+++ perl/t/io/fs.t      Wed Dec 12 14:45:06 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 of Patch.