diff options
| author | ivan <ivan> | 2002-02-22 06:23:44 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-02-22 06:23:44 +0000 |
| commit | da4c9633b45d04091fc1b8d420e5d75e294ebf86 (patch) | |
| tree | 4e33a71b0e9e0039bf98b976b462a3b15fa19d41 | |
| parent | ce4d2cc94fed25fc3b4aa85531022ae1e6eed778 (diff) | |
don't leak perl line numbers on cp provisioning errors
| -rw-r--r-- | FS/FS/svc_acct.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 20db38b71..2a0c90445 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -396,7 +396,7 @@ sub cp_insert { Domain => $mydomain, Timeout => 60, #Debug => 1, - ) or die $@; + ) or die "$@\n"; $app->create_mailbox( Mailbox => $username, @@ -405,7 +405,7 @@ sub cp_insert { Domain => $mydomain, ); - die $app->message unless $app->ok; + die $app->message."\n" unless $app->ok; } sub icradius_rc_insert { @@ -637,14 +637,14 @@ sub cp_delete { Domain => $mydomain, Timeout => 60, #Debug => 1, - ) or die $@; + ) or die "$@\n"; $app->delete_mailbox( Mailbox => $username, Domain => $mydomain, ); - die $app->message unless $app->ok; + die $app->message."\n" unless $app->ok; } sub icradius_rc_delete { @@ -817,7 +817,7 @@ sub cp_rename { Domain => $mydomain, Timeout => 60, #Debug => 1, - ) or die $@; + ) or die "$@\n"; $app->rename_mailbox( Domain => $mydomain, @@ -825,7 +825,7 @@ sub cp_rename { New_Mailbox => $new_username, ); - die $app->message unless $app->ok; + die $app->message."\n" unless $app->ok; } @@ -838,7 +838,7 @@ sub cp_change { Domain => $mydomain, Timeout => 60, #Debug => 1, - ) or die $@; + ) or die "$@\n"; $app->change_mailbox( Domain => $mydomain, @@ -846,7 +846,7 @@ sub cp_change { Password => $password, ); - die $app->message unless $app->ok; + die $app->message."\n" unless $app->ok; } |