Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Finding bugs is good, it means we get to remove debugging prints.

  • Loading branch information...
commit d8b256fcf90da9df3fd57f470bd70ab4d2b293e4 1 parent 72c8bde
@jamiemccarthy jamiemccarthy authored
Showing with 5 additions and 10 deletions.
  1. +3 −9 Slash/Apache/Log/Log.pm
  2. +2 −1  Slash/DB/MySQL/MySQL.pm
View
12 Slash/Apache/Log/Log.pm
@@ -32,17 +32,11 @@ sub handler {
my $slashdb = getCurrentDB();
my $SECT;
- $SECT = $slashdb->{"_sections_cache"}{$constants->{section}}
- if exists($slashdb->{"_sections_cache"})
- && exists($slashdb->{"_sections_cache"}{$constants->{section}});
+ $SECT = $slashdb->{_sections_cache}{$constants->{section}}
+ if exists($slashdb->{_sections_cache})
+ && exists($slashdb->{_sections_cache}{$constants->{section}});
$SECT ||= {};
- printf STDERR ("sections : %d : %d : %s : %s : %s : %s : %s : %s\n",
- $$, scalar(keys %$SECT), $constants->{section}, $ENV{REQUEST_URI},
- $uri, $dat, $r->status,
- join('|', %{ getCurrentForm() })
- );
-
# so it will still log it if the admin DOES request
# to admin.pl? i thought you wanted it to NOT log
# requests to admin.pl? should the !~ be =~ ?
View
3  Slash/DB/MySQL/MySQL.pm
@@ -6835,7 +6835,8 @@ sub _genericSet {
}
my $table_cache = '_' . $table . '_cache';
- return $ok unless keys %{$self->{$table_cache}};
+ return $ok unless keys %{$self->{$table_cache}}
+ && keys %{$self->{$table_cache}{$id}};
my $table_cache_time = '_' . $table . '_cache_time';
$self->{$table_cache_time} = time();
Please sign in to comment.
Something went wrong with that request. Please try again.