projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f8b3592
)
still report errant AUTOLOAD triggering in the new world of FKs, RT#13971
author
Ivan Kohler
<ivan@freeside.biz>
Mon, 30 Dec 2013 02:23:02 +0000
(18:23 -0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Mon, 30 Dec 2013 02:23:02 +0000
(18:23 -0800)
FS/FS/Record.pm
patch
|
blob
|
history
diff --git
a/FS/FS/Record.pm
b/FS/FS/Record.pm
index
835b73d
..
39a3920
100644
(file)
--- a/
FS/FS/Record.pm
+++ b/
FS/FS/Record.pm
@@
-979,6
+979,9
@@
sub AUTOLOAD {
my($field)=$AUTOLOAD;
$field =~ s/.*://;
my($field)=$AUTOLOAD;
$field =~ s/.*://;
+ confess "errant AUTOLOAD $field for $self (arg $value)"
+ unless blessed($self) && $self->can('setfield');
+
#$fk_method_cache{$self->table} ||= fk_methods($self->table);
if ( exists($fk_method_cache{$self->table}->{$field}) ) {
#$fk_method_cache{$self->table} ||= fk_methods($self->table);
if ( exists($fk_method_cache{$self->table}->{$field}) ) {
@@
-1006,12
+1009,8
@@
sub AUTOLOAD {
}
if ( defined($value) ) {
}
if ( defined($value) ) {
- confess "errant AUTOLOAD $field for $self (arg $value)"
- unless blessed($self) && $self->can('setfield');
$self->setfield($field,$value);
} else {
$self->setfield($field,$value);
} else {
- confess "errant AUTOLOAD $field for $self (no args)"
- unless blessed($self) && $self->can('getfield');
$self->getfield($field);
}
}
$self->getfield($field);
}
}