diff options
| -rw-r--r-- | FS/FS/Record.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index e24c0eb9a..2a78c4dc4 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -845,11 +845,9 @@ returns the error, otherwise returns false. sub replace { my $new = shift; + my $old = shift; - my $old; - if ( @_ ) { - $old = shift; - } else { + if (!defined($old)) { warn "[debug]$me replace called with no arguments; autoloading old record\n" if $DEBUG; my $primary_key = $new->dbdef_table->primary_key; |