1N/A * Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 1N/A * by Larry Wall and others 1N/A * You may distribute under the terms of either the GNU General Public 1N/A * License or the Artistic License, as specified in the README file. 1N/A * "The roots of those mountains must be roots indeed; there must be 1N/A * great secrets buried there which have not been discovered since the 1N/A * beginning." --Gandalf, relating Gollum's story 1N/A * Contributed by Graham Barr <Graham.Barr@tiuk.ti.com> 1N/A * The main guts of traverse_isa was actually copied from gv_fetchmeth 1N/A /* A stash/class can go by many names (ie. User == main::User), so 1N/A we compare the stash itself just in case */ 1N/A /* NOTE: No support for tied ISA */ 1N/A "Can't locate package %"SVf" for @%s::ISA",
1N/A=head1 SV Manipulation Functions 1N/A=for apidoc sv_derived_from 1N/AReturns a boolean indicating whether the SV is derived from the specified 1N/Aclass. This is the function that implements C<UNIVERSAL::isa>. It works 1N/Afor class names as well as for objects. 1N/A "%s does not define $%s::VERSION--version check failed",
1N/A "%s defines neither package nor VERSION--version check failed",
str);
1N/A /* XXX could DWIM "1.2.3" here */ 1N/A /* they said C<use Foo v1.2.3> and $Foo::VERSION 1N/A * doesn't look like a float: do string compare */ 1N/A /* they said C<use Foo 1.002_003> and $Foo::VERSION 1N/A * doesn't look like a float: force numeric compare */ 1N/A /* if we get here, we're looking for a numeric comparison, 1N/A * so force the required version into a float, even if they 1N/A * said C<use Foo v1.2.3> */ 1N/A /* I hope you really know what you are doing. */ 1N/A /* I hope you really know what you are doing. */ 1N/A "get_layers: unknown argument '%s'",
1N/A /* Using dXSARGS would also have dITEM and dSP, 1N/A * which define 2 unused local variables. */ 1N/A /* Using dXSARGS would also have dITEM and dSP, 1N/A * which define 2 unused local variables. */