diff options
| author | ivan <ivan> | 2006-12-29 08:51:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-12-29 08:51:34 +0000 |
| commit | 633c48448d9468690b7ad77eb6ff7c660a286658 (patch) | |
| tree | 4e08051f8d805e7e95c8dffe5e3e73b0c360f965 /FS/FS/pkg_svc.pm | |
| parent | 6cb5c702b17b98be46adea4539e15d5f312e5be1 (diff) | |
service refactor!
Diffstat (limited to 'FS/FS/pkg_svc.pm')
| -rw-r--r-- | FS/FS/pkg_svc.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/pkg_svc.pm b/FS/FS/pkg_svc.pm index 065ddbe..9f3a4a1 100644 --- a/FS/FS/pkg_svc.pm +++ b/FS/FS/pkg_svc.pm @@ -82,7 +82,9 @@ returns the error, otherwise returns false. =cut sub replace { - my ( $new, $old ) = ( shift, shift ); + my( $new, $old ) = ( shift, shift ); + + $old = $new->replace_old unless defined($old); return "Can't change pkgpart!" if $old->pkgpart != $new->pkgpart; return "Can't change svcpart!" if $old->svcpart != $new->svcpart; |