Michael G Schwern [EMAIL PROTECTED] writes:
On Sun, Dec 16, 2001 at 02:41:31PM +, Piers Cawley wrote:
The equivalent code without isa_ok() would be:
my $foo = Foo-new;
ok( $foo-isa('Foo') );
except should $foo be unblessed or undef that will explode. You have
to start
On Mon, Dec 17, 2001 at 08:12:43AM +, Piers Cawley wrote:
What's wrong with
ok ( eval { $foo-isa('Foo') } );
or even:
ok (eval { ref($foo) $foo-isa('Foo') });
As Kurt already pointed out, you can do:
ok( UNIVERSAL::isa($foo, 'Foo') );
but if it fails
-BEGIN PGP SIGNED MESSAGE-
Moin,
On 17-Dec-01 Michael G Schwern tried to scribble about:
On Mon, Dec 17, 2001 at 05:53:36AM +0100, Andreas J. Koenig wrote:
Catching up after moving. Where's the posting I'm supposed to comment
on?
I believe it was this thread:
I am about ready to release my XS rewrite of Universal::Version and I have some
proposals (discussion/reasoning below):
1) v-strings be upgraded to objects at the same time; Perl knows to grab the
right thing if you ask for the PV representation
2) version objects are just reblessed v-strings
ok 5
# bad offset 205032704, want 45
# 32-bit wraparound suspected in tell() since
# 45 - unpack('L', pack('L', 45)) - 1 equals 205032704.
not ok 6
ok 7
# bad offset 205032705, want 450001
# 32-bit wraparound suspected in tell() since
# 450001 -
http:[EMAIL PROTECTED]
http:[EMAIL PROTECTED]
ftp:[EMAIL PROTECTED]
ftp:[EMAIL PROTECTED]
ftp.funet.fi::perlsnap
I no doubt missed some patches, but my inbox was even more unruly than
usual since I was off-line practically all of the Sunday.
