From 3702269ee9f6a63572f6e915ace56d70b5080033 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 25 Oct 2002 21:24:55 +0000
Subject: [PATCH] make $old_domain available too

---
 FS/FS/part_export/shellcommands.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm
index da6f4c46c..04e5041c3 100644
--- a/FS/FS/part_export/shellcommands.pm
+++ b/FS/FS/part_export/shellcommands.pm
@@ -65,6 +65,7 @@ sub _export_replace {
   }
   $new_finger = shell_quote $new_finger;
   $quoted_new__password = shell_quote $new__password;
+  $old_domain = $old->domain;
   $new_domain = $new->domain;
   $new_crypt_password = ''; #surpress "used only once" warnings
   $new_crypt_password = crypt( $new->_password,
-- 
2.11.0