Fix uninitialized warnings

perl-ldap · Apr 11, 2001 · 5825695 · 5825695
1 parent e1bdcd1
commit 5825695
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/Net/LDAP/Util.pm b/lib/Net/LDAP/Util.pm
@@ -315,7 +315,7 @@ sub canonical_dn {
     }
   }
 
-  (length($dn) != pos($dn))
+  (length($dn) != (pos($dn)||0))
     ? undef
     : join(",",@dn);
 }
@@ -334,7 +334,7 @@ terms as Perl itself.
 
 =for html <hr>
 
-I<$Id: Util.pm,v 1.9 2001/03/08 13:31:45 gbarr Exp $>
+I<$Id: Util.pm,v 1.10 2001/04/11 07:49:53 gbarr Exp $>
 
 =cut
 

diff --git a/t/01canon_dn.t b/t/01canon_dn.t
@@ -83,7 +83,7 @@ while(my($op,$dn) = splice(@tests,0,2)) {
       print "'$dn' failed to parse\n";
     }
     elsif ($failed = $canon eq $refdn) {
-      print "'$reforig'\n'$refdn'\n\nmatched\n\n'$dn'\n'$canon'\n";
+      print "'$refdn'\n\nmatched\n\n'$dn'\n'$canon'\n";
     }
   }
   else {