This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH pod/perlhack.pod t/op/pack.t] Fixing bad testing advice
authorMichael G. Schwern <schwern@pobox.com>
Mon, 27 Aug 2001 21:24:44 +0000 (17:24 -0400)
committerAbhijit Menon-Sen <ams@wiw.org>
Tue, 28 Aug 2001 00:47:35 +0000 (00:47 +0000)
Message-Id: <20010827212444.F12582@blackrider>

p4raw-id: //depot/perl@11768

pod/perlhack.pod
t/op/pack.t

index acaf43f..43e04d4 100644 (file)
@@ -1482,8 +1482,13 @@ write one easily.
     my $test = 1;
     sub ok {
         my($ok) = @_;
-        print "not " unless $ok;
-        print "ok $test\n";
+
+        # You have to do it this way or VMS will get confused.
+        my $out = '';
+        $out =  "not " unless $ok;
+        $out .= "ok $test\n";
+        print $out;
+
         $test++;
         return $ok;
     }
index 02247df..8256887 100755 (executable)
@@ -12,12 +12,18 @@ $Is_EBCDIC = (defined $Config{ebcdic} && $Config{ebcdic} eq 'define');
 my $test = 1;
 sub ok {
     my($ok) = @_;
-    print "not " unless $ok;
-    print "ok $test\n";
+
+    # You have to do it this way or VMS will get confused.
+    my $out = '';
+    $out =  "not " unless $ok;
+    $out .= "ok $test\n";
+    print $out;
+
     $test++;
     return $ok;
 }
 
+
 print "1..161\n";
 
 # Note: All test numbers in comments are off by 1 after the comment below..