Change 14790 by jhi@alpha on 2002/02/20 15:08:06
Subject: Re: [ID 20020220.001] pack w with objects
From: Ulrich Pfeifer <[EMAIL PROTECTED]>
Date: 20 Feb 2002 11:21:15 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/op/pack.t#62 edit
Differences ...
==== //depot/perl/t/op/pack.t#62 (xtext) ====
Index: perl/t/op/pack.t
--- perl/t/op/pack.t.~1~ Wed Feb 20 08:15:05 2002
+++ perl/t/op/pack.t Wed Feb 20 08:15:05 2002
@@ -6,7 +6,7 @@
require './test.pl';
}
-plan tests => 1476;
+plan tests => 1477;
use strict;
use warnings;
@@ -116,6 +116,12 @@
is(scalar(@y), 2);
is($y[1], 130);
+ $x = pack('w*', 5000000000); $y = '';
+ eval {
+ use Math::BigInt;
+ $y = pack('w*', Math::BigInt::->new(5000000000));
+ };
+ is($x, $y);
}
End of Patch.
