On Mon, Dec 17, 2001 at 09:48:17PM -0600, Craig A. Berry wrote:
> All tests pass with bleadperl, OVMS Alpha 7.3, but one test did spew
> a lot of complaints:
>
> t/strap-analyze....
> Use of uninitialized value in numeric eq (==) at blib/lib/Test/Harness/Straps.pm
>line 153, <FILE> line 11.
> Use of uninitialized value in numeric eq (==) at blib/lib/Test/Harness/Straps.pm
>line 153, <FILE> line 11.
> Use of uninitialized value in numeric eq (==) at blib/lib/Test/Harness/Straps.pm
>line 153, <FILE> line 11.
>
> and lots more of the same.
Ah ha! That's the fix for "not\nok 12\n" VMSism.
Does this make that warning go away?
--- lib/Test/Harness/Straps.pm 18 Dec 2001 03:20:10 -0000 1.1.2.10
+++ lib/Test/Harness/Straps.pm 18 Dec 2001 05:03:27 -0000
@@ -87,6 +87,7 @@
my($self) = shift;
$self->{_is_vms} = $^O eq 'VMS';
+ $self->{_saw_lone_not} = 0;
}
=end _private
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
it is a past-time,
a paste-time, a passt-time, and
a plug my ass time.
-- japhy
