From 1a409e3604c5f2aeba195527227d56f167b715e8 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 24 Apr 2019 14:49:21 -0700 Subject: [PATCH] fix northern-911 and other unsuspend operations when exports override export_replace, RT#83178 --- FS/FS/part_export.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index e43524d74..2622b7d4b 100644 --- a/FS/FS/part_export.pm +++ b/FS/FS/part_export.pm @@ -649,7 +649,7 @@ sub _export_suspend { #warn "warning: _export_suspened unimplemented for". ref($self); my $svc_x = shift; my $new = $svc_x->clone_suspended; - $self->_export_replace( $new, $svc_x ); + $self->export_replace( $new, $svc_x ); } sub _export_unsuspend { @@ -657,7 +657,7 @@ sub _export_unsuspend { #warn "warning: _export_unsuspend unimplemented for ". ref($self); my $svc_x = shift; my $old = $svc_x->clone_kludge_unsuspend; - $self->_export_replace( $svc_x, $old ); + $self->export_replace( $svc_x, $old ); } =item get_remoteid SVC -- 2.11.0