missing $ in ldap_password

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 79e9b25..c301b87 100644 (file)
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -1580,7 +1580,7 @@ sub ldap_password {
     die "Blowfish encryption not supported in this context, svcnum ".
         $self->svcnum. "\n";
   } else { #plaintext
-    return '{PLAIN}'. self->_password;
+    return '{PLAIN}'. $self->_password;
     #my $encryption = ( scalar(@_) && $_[0] ) ? shift : 'crypt';
     #if ( $encryption eq 'crypt' ) {
     #  return '{CRYPT}'. crypt(