Message-Id: <
20010827212444.F12582@blackrider>
p4raw-id: //depot/perl@11768
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;
}
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..