Front page | perl.perl5.porters |
Postings from August 2001
On Tue, Aug 28, 2001 at 06:30:25AM +0530, Abhijit Menon-Sen wrote:
> At 2001-08-27 20:12:29, schwern@pobox.com wrote:
> >
> > --- pod/perlhack.pod 2001/08/27 23:55:58 1.1
> > +++ pod/perlhack.pod 2001/08/28 00:11:18
> > @@ -1471,26 +1471,40 @@
>
> Thanks, applied. (#11767)
Ooopsie. That ok() function will cause problems on VMS.
--- pod/perlhack.pod 2001/08/28 01:20:47 1.1
+++ pod/perlhack.pod 2001/08/28 01:21:35
@@ -1482,8 +1482,13 @@
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;
}
--- t/op/pack.t 2001/08/28 01:22:51 1.2
+++ t/op/pack.t 2001/08/28 01:23:14
@@ -12,11 +12,17 @@
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";
--
Michael G. Schwern <schwern@pobox.com> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <perl-qa@perl.org> Kwalitee Is Job One
"Let's face it," said bearded Rusty Simmons, opening a can after the
race. "This is a good excuse to drink some beer." At 10:30 in the
morning? "Well, it's past noon in Dublin," said teammate Mike
[Joseph] Schwern. "It's our duty."
-- "Sure, and It's a Great Day for Irish Runners"
Newsday, Sunday, March 20, 1988