--- smbldap-tools-0.9.6/smbldap_tools.pm	2010-12-09 13:31:10.191649352 +0000
+++ smbldap-tools-0.9.6/smbldap_tools.pm	2010-12-09 14:29:52.083037534 +0000
@@ -828,9 +828,9 @@
         $lines .= "dn: " . $entry->dn . "\n";
         foreach my $attr ( $entry->attributes ) {
             my @vals = $entry->get_value($attr);
-#            foreach my $val (@vals) {
-#                $val = "**UNPRINTABLE**" if ( $val =~ /[^[:print:]]/ );
-#            }
+            foreach my $val (@vals) {
+                $val = "**UNPRINTABLE**" if ( $val =~ /\P{IsPrint}/ );
+            }
             $lines .= $attr . ": " . join( ',', @vals ) . "\n";
         }
     }
@@ -857,7 +857,7 @@
         foreach my $attr ( $entry->attributes ) {
             my @vals = $entry->get_value($attr);
             foreach my $val (@vals) {
-                $val = "**UNPRINTABLE**" if ( $val =~ /[^[:print:]]/ );
+                $val = "**UNPRINTABLE**" if ( $val =~ /\P{IsPrint}/ );
             }
             if (   $attr eq "sambaPwdLastSet"
                 or $attr eq "sambaPwdCanChange"