projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e4c4a60
)
AUTOLOAD optimizations broke things rather badly, oops
author
ivan
<ivan>
Mon, 5 Nov 2001 16:42:19 +0000
(16:42 +0000)
committer
ivan
<ivan>
Mon, 5 Nov 2001 16:42:19 +0000
(16:42 +0000)
FS/FS/Record.pm
patch
|
blob
|
history
diff --git
a/FS/FS/Record.pm
b/FS/FS/Record.pm
index
3c8e9ba
..
9f35494
100644
(file)
--- a/
FS/FS/Record.pm
+++ b/
FS/FS/Record.pm
@@
-384,7
+384,7
@@
$record->column('value') is a synonym for $record->set('column','value');
sub AUTOLOAD {
my $field = $AUTOLOAD;
$field =~ s/.*://;
sub AUTOLOAD {
my $field = $AUTOLOAD;
$field =~ s/.*://;
- if (
scalar(@_) == 2
) {
+ if (
defined($_[1])
) {
$_[0]->setfield($field, $_[1]);
} else {
$_[0]->getfield($field);
$_[0]->setfield($field, $_[1]);
} else {
$_[0]->getfield($field);
@@
-1036,12
+1036,12
@@
sub hfields {
\%hash;
}
\%hash;
}
-
#
sub _dump {
-
#
my($self)=@_;
-
#
join("\n", map {
-
#
"$_: ". $self->getfield($_). "|"
-
#
} (fields($self->table)) );
-
#
}
+sub _dump {
+ my($self)=@_;
+ join("\n", map {
+ "$_: ". $self->getfield($_). "|"
+ } (fields($self->table)) );
+}
sub DESTROY { return; }
sub DESTROY { return; }