OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Thomas Lotterer
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-tools Date: 18-Feb-2005 13:06:45
Branch: HEAD Handle: 2005021812064500
Modified files:
openpkg-tools/cmd bf-db.pl
Log:
perl-dbi prints errors so let us print that we caught them
Summary:
Revision Changes Path
1.13 +9 -9 openpkg-tools/cmd/bf-db.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-tools/cmd/bf-db.pl
============================================================================
$ cvs diff -u -r1.12 -r1.13 bf-db.pl
--- openpkg-tools/cmd/bf-db.pl 18 Feb 2005 12:00:55 -0000 1.12
+++ openpkg-tools/cmd/bf-db.pl 18 Feb 2005 12:06:45 -0000 1.13
@@ -188,7 +188,7 @@
$time
);
} while (not $rv and $dbh->errstr =~ m|lock|i and sleep(1) and
$retries-- >= 1);
- printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose);
+ printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose or $retries != $lockretries);
if (not $rv) {
print STDERR "ERROR:$0: SQLite error: ".$dbh->errstr."\n";
exit(2);
@@ -208,7 +208,7 @@
$time
);
} while (not $rv and $dbh->errstr =~ m|lock|i and sleep(1) and
$retries-- >= 1);
- printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose);
+ printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose or $retries != $lockretries);
if (not $rv) {
print STDERR "ERROR:$0: SQLite error: ".$dbh->errstr."\n";
exit(2);
@@ -239,7 +239,7 @@
$name
);
} while (not $rv and $dbh->errstr =~ m|lock|i and sleep(1) and
$retries-- >= 1);
- printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose);
+ printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose or $retries != $lockretries);
if (not $rv) {
print STDERR "ERROR:$0: SQLite error: ".$dbh->errstr."\n";
exit(2);
@@ -258,7 +258,7 @@
$name, $version, $release,
);
} while (not $rv and $dbh->errstr =~ m|lock|i and sleep(1) and
$retries-- >= 1);
- printf STDERR "DEBUG:$0: countdown from %d to %d\n",
$lockretries, $retries if($opt_verbose);
+ printf STDERR "DEBUG:$0: countdown from %d to %d\n",
$lockretries, $retries if($opt_verbose or $retries != $lockretries);
if (not $rv) {
print STDERR "ERROR:$0: SQLite error: ".$dbh->errstr."\n";
exit(2);
@@ -284,7 +284,7 @@
$name
);
} while (not $rv and $dbh->errstr =~ m|lock|i and sleep(1) and
$retries-- >= 1);
- printf STDERR "DEBUG:$0: countdown from %d to %d\n",
$lockretries, $retries if($opt_verbose);
+ printf STDERR "DEBUG:$0: countdown from %d to %d\n",
$lockretries, $retries if($opt_verbose or $retries != $lockretries);
if (not $rv) {
print STDERR "ERROR:$0: SQLite error: ".$dbh->errstr."\n";
exit(2);
@@ -303,7 +303,7 @@
$name
);
} while (not $rv and $dbh->errstr =~ m|lock|i and sleep(1) and
$retries-- >= 1);
- printf STDERR "DEBUG:$0: countdown from %d to %d\n",
$lockretries, $retries if($opt_verbose);
+ printf STDERR "DEBUG:$0: countdown from %d to %d\n",
$lockretries, $retries if($opt_verbose or $retries != $lockretries);
if (not $rv) {
print STDERR "ERROR:$0: SQLite error: ".$dbh->errstr."\n";
exit(2);
@@ -325,7 +325,7 @@
$name
);
} while (not $rv and $dbh->errstr =~ m|lock|i and sleep(1) and
$retries-- >= 1);
- printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose);
+ printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose or $retries != $lockretries);
if (not $rv) {
print STDERR "ERROR:$0: SQLite error: ".$dbh->errstr."\n";
exit(2);
@@ -350,7 +350,7 @@
$time
);
} while (not $rv and $dbh->errstr =~ m|lock|i and sleep(1) and
$retries-- >= 1);
- printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose);
+ printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose or $retries != $lockretries);
if (not $rv) {
print STDERR "ERROR:$0: SQLite error: ".$dbh->errstr."\n";
exit(2);
@@ -381,7 +381,7 @@
$support
);
} while (not $rv and $dbh->errstr =~ m|lock|i and sleep(1) and
$retries-- >= 1);
- printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose);
+ printf STDERR "DEBUG:$0: countdown from %d to %d\n", $lockretries,
$retries if($opt_verbose or $retries != $lockretries);
if (not $rv) {
print STDERR "ERROR:$0: SQLite error: ".$dbh->errstr."\n";
exit(2);
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List openpkg-cvs@openpkg.org
