percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 13:11:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Enclose all packages blocks and add Package devel docu.

Browse Source
This commit is contained in:
Daniel Nichter
2011-06-28 17:50:02 -06:00
parent b4b6376be1
commit 82931ec399
35 changed files with 142 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/PgLogParser.pm
View File

@@ -18,15 +18,22 @@
# ###########################################################################
# PgLogParser package $Revision: 5835 $
# ###########################################################################
# Package: PgLogParser
# PgLogParser parses Postgres logs.
{
package PgLogParser;
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Data::Dumper;
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Quotekeys = 0;
# This regex is partially inspired by one from pgfouine. But there is no
# documentation on the last capture in that regex, so I omit that. (TODO: that
# actually seems to be for CSV logging.)
@@ -658,7 +665,7 @@ sub _d {
}
1;
}
# ###########################################################################
# End PgLogParser package
# ###########################################################################