percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-02 02:34:19 +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

10
lib/MySQLConfigComparer.pm
View File

@@ -20,17 +20,12 @@
# Package: MySQLConfigComparer
# MySQLConfigComparer compares and diffs C<MySQLConfig> objects.
{
package MySQLConfigComparer;
{ # package scope
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Quotekeys = 0;
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
# Alternate values because a config file can have var=ON and then be shown
@@ -330,9 +325,8 @@ sub _d {
print STDERR "# $package:$line $PID ", join(' ', @_), "\n";
}
} # package scope
1;
}
# ###########################################################################
# End MySQLConfigComparer package
# ###########################################################################