OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Thomas Lotterer
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-registry Date: 13-Jul-2006 09:34:44
Branch: HEAD Handle: 2006071308344300
Modified files:
openpkg-registry registry-ui.pl
Log:
it's OK to die() with latest CGI::GuruMeditation in place
Summary:
Revision Changes Path
1.73 +4 -4 openpkg-registry/registry-ui.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-registry/registry-ui.pl
============================================================================
$ cvs diff -u -r1.72 -r1.73 registry-ui.pl
--- openpkg-registry/registry-ui.pl 13 Jul 2006 07:32:41 -0000 1.72
+++ openpkg-registry/registry-ui.pl 13 Jul 2006 07:34:43 -0000 1.73
@@ -1880,11 +1880,11 @@
return if (not defined $dbs);
# invalidate expired records
- $rv = $dbs->do("DELETE FROM cache WHERE ( expires <= ? );", undef,
time()) or die $dbs->errstr(); #FIXME
+ $rv = $dbs->do("DELETE FROM cache WHERE ( expires <= ? );", undef,
time()) or die $dbs->errstr();
# dig in the cache
- $sth = $dbs->prepare("SELECT content_type, expires, content FROM cache
WHERE url = ?;") or die $dbs->errstr(); #FIXME
- $sth->execute($url) or die $dbs->errstr(); #FIXME
+ $sth = $dbs->prepare("SELECT content_type, expires, content FROM cache
WHERE url = ?;") or die $dbs->errstr();
+ $sth->execute($url) or die $dbs->errstr();
$rv = $sth->fetchrow_hashref;
$content_type = $rv->{content_type};
@@ -1902,7 +1902,7 @@
$rv = $dbs->do("INSERT INTO cache (url, content_type, expires, content)
VALUES (?, ?, ?, ?);",
undef,
- $url, $content_type, $expires, $content) or die
$dbs->errstr(); #FIXME
+ $url, $content_type, $expires, $content) or die
$dbs->errstr();
}
sub fetchurl ($)
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [email protected]
