summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
c8353a6)
sub warn {
my ($self,@args) = @_;
my ($package, $line) = (caller)[0,2];
sub warn {
my ($self,@args) = @_;
my ($package, $line) = (caller)[0,2];
+ my $ar = $self->parent ? $self->parent->{ar} : $self->{ar};
if ( $args[0] and ref $self ) {
if ( $args[0] and ref $self ) {
- $self->{ar}->warn("[$package line $line] ", @args) ;
+ $ar->warn("[$package line $line] ", @args) ;
} else {
print "warn called by ", caller, " with ", @_, "\n";
}
} else {
print "warn called by ", caller, " with ", @_, "\n";
}