Index: /trunk/cgi-bin/access-pwd-update.pl
===================================================================
--- /trunk/cgi-bin/access-pwd-update.pl	(revision 947)
+++ /trunk/cgi-bin/access-pwd-update.pl	(revision 948)
@@ -71,7 +71,7 @@
 open HTPASS, "<$passfile";
 
-my $sth = $ip_dbh->prepare("SELECT count(*) FROM users WHERE username = ?");
+my $sth         = $ip_dbh->prepare("SELECT count(*) FROM users WHERE username = ?");
 my $insert_user = $ip_dbh->prepare("INSERT INTO users (username) VALUES (?)");
-my $del_user = $ip_dbh->prepare("DELETE FROM users WHERE username = ?");
+my $del_user    = $ip_dbh->prepare("DELETE FROM users WHERE username = ?");
 
 while (<HTPASS>) {
@@ -82,5 +82,5 @@
   if ($data[0] == 0) {
     if ($doadd) {
-      $insert_user->execute($user) or print "error inserting $user: ".$DBI::errstr."\n";
+      $insert_user->execute($user) or print "error inserting $user: $DBI::errstr\n";
       print "new user: $user\n";
     } else {
@@ -102,5 +102,5 @@
     }
     if ($dodel) {
-      $del_user->execute($data[0]) or print "error deleting $data[0]: ".$DBI::errstr."\n";
+      $del_user->execute($data[0]) or print "error deleting $data[0]: $DBI::errstr\n";
       print "deleting $data[0] (acl $data[1])\n";
     } else {