X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fbase.pm;h=9c2135bfb6b4e6bbf8fbfa3bc59b1bc5c50ab266;hb=6a93515622cf0655623a39a9eaff82a4b9b3268b;hp=832b6a4a9a1610549547be1b5a32cb0b1e68f548;hpb=446e776fb7618d56ecd9043c4060e08967abe22c;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/base.pm b/lib/base.pm index 832b6a4..9c2135b 100644 --- a/lib/base.pm +++ b/lib/base.pm @@ -2,7 +2,7 @@ package base; use strict 'vars'; use vars qw($VERSION); -$VERSION = '2.06'; +$VERSION = '2.07'; # constant.pm is slow sub SUCCESS () { 1 } @@ -78,7 +78,7 @@ sub import { unless defined ${$base.'::VERSION'}; } else { - local $SIG{__DIE__} = 'IGNORE'; + local $SIG{__DIE__}; eval "require $base"; # Only ignore "Can't locate" errors from our eval require. # Other fatal errors (syntax etc) must be reported. @@ -97,7 +97,7 @@ ERROR push @{"$inheritor\::ISA"}, $base; if ( has_fields($base) || has_attr($base) ) { - # No multiple fields inheritence *suck* + # No multiple fields inheritance *suck* if ($fields_base) { require Carp; Carp::croak("Can't multiply inherit %FIELDS"); @@ -192,7 +192,7 @@ it, will define $VERSION in the base package, setting it to the string C<-1, set by base.pm>. Will also initialize the fields if one of the base classes has it. -Multiple inheritence of fields is B supported, if two or more +Multiple inheritance of fields is B supported, if two or more base classes each have inheritable fields the 'base' pragma will croak. See L, L and L for a description of this feature.