Rename Pingback.pm to VersionCheck.pm.

2025-09-02 10:36:28 +00:00 · 2013-02-11 19:02:59 -07:00
parent c02844a9d6
commit b6bd78d205
21 changed files with 159 additions and 163 deletions
--- a/bin/pt-archiver
+++ b/bin/pt-archiver
@@ -28,7 +28,7 @@ BEGIN {
      Daemon
      MasterSlave
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -4675,15 +4675,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -5276,7 +5276,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -5409,7 +5409,7 @@ sub main {
         $o->save_error("--bulk-delete is meaningless with --limit 1");
      }

-      Pingback::validate_options($o);
+      VersionCheck::validate_options($o);

   }

@@ -5809,7 +5809,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [
            { dbh => $src->{dbh}, dsn => $src->{dsn} },
            ( $dst ? { dbh => $dst->{dbh}, dsn => $dst->{dsn} } : () ),
--- a/bin/pt-config-diff
+++ b/bin/pt-config-diff
@@ -28,7 +28,7 @@ BEGIN {
      MySQLConfigComparer
      ReportFormatter
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -4349,15 +4349,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -4950,7 +4950,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -4991,7 +4991,7 @@ sub main {
      if ( @ARGV < 1 ) {
        $o->save_error("Specify at least one file or DSN on the command line");
      }
-      Pingback::validate_options($o);
+      VersionCheck::validate_options($o);
   }

   $o->usage_or_errors();
@@ -5068,7 +5068,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [ map({ +{ dbh => $_->dbh, dsn => $_->dsn } } @cxn) ],
         protocol  => $o->get('version-check'),
      );
--- a/bin/pt-deadlock-logger
+++ b/bin/pt-deadlock-logger
@@ -25,7 +25,7 @@ BEGIN {
      DSNParser
      Daemon
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -3265,15 +3265,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -3866,7 +3866,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -3978,7 +3978,7 @@ sub main {
         $o->save_error("--dest requires a 't' (table) part");
      }

-      Pingback::validate_options($o);
+      VersionCheck::validate_options($o);
      
      # Avoid running forever with zero second interval.
      if ( $o->get('run-time') && !$o->get('interval') ) {
@@ -4050,7 +4050,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [
            { dbh => $dbh, dsn => $source_dsn },
            ($dest_dsn ? { dbh => $dest_dsn, dsn => $dest_dsn } : ()),
--- a/bin/pt-diskstats
+++ b/bin/pt-diskstats
@@ -23,7 +23,7 @@ BEGIN {
      DiskstatsGroupBySample
      DiskstatsMenu
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -4160,15 +4160,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -4761,7 +4761,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -4803,7 +4803,7 @@ sub main {
      if ( !$o->get('columns-regex') ) {
         $o->save_error("A regex pattern for --column-regex must be specified");
      }
-      Pingback::validate_options($o);
+      VersionCheck::validate_options($o);
   }

   $o->usage_or_errors();
@@ -4812,7 +4812,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(protocol => $o->get('version-check'));
+      VersionCheck::version_check(protocol => $o->get('version-check'));
   }

   # ########################################################################
--- a/bin/pt-duplicate-key-checker
+++ b/bin/pt-duplicate-key-checker
@@ -24,7 +24,7 @@ BEGIN {
      Schema
      SchemaIterator
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -4021,15 +4021,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -4622,7 +4622,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # #############################################################################
@@ -4668,7 +4668,7 @@ sub main {

   my $dp = $o->DSNParser();
   $dp->prop('set-vars', $o->get('set-vars'));
-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -4700,7 +4700,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [ {dbh => $dbh, dsn => $dsn} ],
         protocol  => $o->get('version-check'),
      );
--- a/bin/pt-find
+++ b/bin/pt-find
@@ -20,7 +20,7 @@ BEGIN {
      TableParser
      Daemon
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -2833,15 +2833,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -3434,7 +3434,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -3739,7 +3739,7 @@ sub main {
      $o->save_error("--server-id regex doesn't capture digits with (\\d+)");
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -3841,7 +3841,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [{dbh => $dbh, dsn => $dsn}],
         protocol  => $o->get('version-check'),
      );
--- a/bin/pt-fk-error-logger
+++ b/bin/pt-fk-error-logger
@@ -20,7 +20,7 @@ BEGIN {
      Daemon
      Transformers
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -2775,15 +2775,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -3376,7 +3376,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -3438,7 +3438,7 @@ sub main {
         $o->save_error("--dest requires a 't' (table) part");
      }

-      Pingback::validate_options($o);
+      VersionCheck::validate_options($o);
   }

   $o->usage_or_errors();
@@ -3500,7 +3500,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [
            { dbh => $dbh, dsn => $src_dsn },
            ($dst_dbh ? { dbh => $dst_dbh, dsn => $dst_dsn } : ())
--- a/bin/pt-heartbeat
+++ b/bin/pt-heartbeat
@@ -23,7 +23,7 @@ BEGIN {
      Retry
      Transformers
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -4001,15 +4001,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -4602,7 +4602,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -4692,7 +4692,7 @@ sub main {
      $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -5072,7 +5072,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [ {dbh => $dbh, dsn => $dsn} ],
         protocol  => $o->get('version-check'),
      );
--- a/bin/pt-index-usage
+++ b/bin/pt-index-usage
@@ -30,7 +30,7 @@ BEGIN {
      IndexUsage
      Progress
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -5476,15 +5476,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -6077,7 +6077,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -6136,7 +6136,7 @@ sub main {
         }
      }
      
-      Pingback::validate_options($o);
+      VersionCheck::validate_options($o);
   }

   $o->usage_or_errors();
@@ -6281,7 +6281,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [
            { dbh => $dbh, dsn => $dsn },
            ($res_dbh ? { dbh => $res_dbh, dsn => $res_dsn } : ())
--- a/bin/pt-kill
+++ b/bin/pt-kill
@@ -32,7 +32,7 @@ BEGIN {
      Retry
      Cxn
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -5698,15 +5698,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -6299,7 +6299,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -6371,7 +6371,7 @@ sub main {
      $o->save_error("Invalid value for --victims: $victims");
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -6654,7 +6654,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [ ($dbh ? { dbh => $dbh, dsn => $cxn->dsn() } : ()) ],
         protocol  => $o->get('version-check'),
      );
--- a/bin/pt-online-schema-change
+++ b/bin/pt-online-schema-change
@@ -39,7 +39,7 @@ BEGIN {
      CleanupTask
      IndexLength
      HTTPMicro
-      Pingback
+      VersionCheck
      Percona::XtraDB::Cluster
   ));
 }
@@ -7148,15 +7148,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -7749,7 +7749,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -7968,7 +7968,7 @@ sub main {
      $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors(); 

@@ -8258,7 +8258,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [ map({ +{ dbh => $_->dbh(), dsn => $_->dsn() } }
            $cxn, ($slaves ? @$slaves : ())) ],
         protocol  => $o->get('version-check'),
--- a/bin/pt-query-advisor
+++ b/bin/pt-query-advisor
@@ -36,7 +36,7 @@ BEGIN {
      TableParser
      ReportFormatter
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -7431,15 +7431,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -8032,7 +8032,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -8099,7 +8099,7 @@ sub main {
            . "rule_id, query_id, none");
      }

-      Pingback::validate_options($o);
+      VersionCheck::validate_options($o);
   }

   $o->usage_or_errors();
@@ -8430,7 +8430,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [
            ($review_dbh ? { dbh => $review_dbh, dsn => $review_dsn } : ()),
            ($dbh        ? { dbh => $dbh,        dsn => $dsn        } : ()),
--- a/bin/pt-query-digest
+++ b/bin/pt-query-digest
@@ -53,7 +53,7 @@ BEGIN {
      Runtime
      Pipeline
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -13060,15 +13060,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -13661,7 +13661,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -13812,7 +13812,7 @@ sub main {
      $o->save_error($EVAL_ERROR);
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -14902,7 +14902,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [
            ($qv_dbh ? { dbh => $qv_dbh, dsn => $review_dsn } : ()),
            ($ps_dbh ? { dbh => $ps_dbh, dsn => $ps_dsn     } : ()),
--- a/bin/pt-slave-delay
+++ b/bin/pt-slave-delay
@@ -25,7 +25,7 @@ BEGIN {
      Transformers
      Retry
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -3376,15 +3376,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -3977,7 +3977,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -4029,7 +4029,7 @@ sub main {
      $o->set('run-time', max($o->get('run-time'), 1));
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -4088,7 +4088,7 @@ sub main {
      my $tmp_master_dsn = $master_dsn
                         ? $master_dsn
                         : { h => $status->{master_host}, P => $status->{master_port} };
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [
            { dbh => $slave_dbh,  dsn => $slave_dsn      },
            { dbh => $master_dbh, dsn => $tmp_master_dsn }
--- a/bin/pt-slave-restart
+++ b/bin/pt-slave-restart
@@ -26,7 +26,7 @@ BEGIN {
      MasterSlave
      Daemon
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -4000,15 +4000,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -4601,7 +4601,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -4665,7 +4665,7 @@ sub main {
      $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -4772,7 +4772,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [ { dbh => $dbh, dsn => $dsn }, @servers_to_watch ],
         protocol  => $o->get('version-check'),
      );
--- a/bin/pt-table-checksum
+++ b/bin/pt-table-checksum
@@ -15,7 +15,7 @@ BEGIN {
   $INC{$_} = __FILE__ for map { (my $pkg = "$_.pm") =~ s!::!/!g; $pkg } (qw(
      Percona::Toolkit
      HTTPMicro
-      Pingback
+      VersionCheck
      DSNParser
      OptionParser
      Lmo::Utils
@@ -714,15 +714,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -1315,7 +1315,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -8648,7 +8648,7 @@ sub main {
      $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();
 
@@ -9237,7 +9237,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [
            { dbh => $master_dbh, dsn => $master_dsn },
            map({ +{ dbh => $_->dbh(), dsn => $_->dsn() } } @$slaves)
--- a/bin/pt-table-sync
+++ b/bin/pt-table-sync
@@ -41,7 +41,7 @@ BEGIN {
      Transformers
      Retry
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -9121,15 +9121,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -9722,7 +9722,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -9858,7 +9858,7 @@ sub main {
      $o->save_error("Invalid --recursion-method: $EVAL_ERROR")
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -9971,7 +9971,7 @@ sub main {
   } @dsns;

   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [@instances],
         protocol  => $o->get('version-check'),
      );
--- a/bin/pt-upgrade
+++ b/bin/pt-upgrade
@@ -48,7 +48,7 @@ BEGIN {
      CompareWarnings
      Retry
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -11657,15 +11657,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -12258,7 +12258,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -12340,7 +12340,7 @@ sub main {
      $o->save_error('Specify at least one host DSN');
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -12605,7 +12605,7 @@ sub main {
   # ########################################################################
   if ( $o->get('version-check') ne 'off'
        && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [ map({ +{ dbh => $_->{dbh}, dsn => $_->{dsn} } } @$hosts) ],
         protocol  => $o->get('version-check'),
      );
--- a/bin/pt-variable-advisor
+++ b/bin/pt-variable-advisor
@@ -29,7 +29,7 @@ BEGIN {
      AdvisorRules
      VariableAdvisorRules
      HTTPMicro
-      Pingback
+      VersionCheck
   ));
 }

@@ -4283,15 +4283,15 @@ if ( $INC{"IO/Socket/SSL.pm"} ) {
 # ###########################################################################

 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # This package is a copy without comments from the original.  The original
 # with comments and its test file can be found in the Bazaar repository at,
-#   lib/Pingback.pm
-#   t/lib/Pingback.t
+#   lib/VersionCheck.pm
+#   t/lib/VersionCheck.t
 # See https://launchpad.net/percona-toolkit for more information.
 # ###########################################################################
 {
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -4884,7 +4884,7 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################

 # ###########################################################################
@@ -4929,7 +4929,7 @@ sub main {
      }
   }

-   Pingback::validate_options($o);
+   VersionCheck::validate_options($o);
   
   $o->usage_or_errors();

@@ -5006,7 +5006,7 @@ sub main {
   # Do the version-check
   # ########################################################################
   if ( $o->get('version-check') ne 'off' && (!$o->has('quiet') || !$o->get('quiet')) ) {
-      Pingback::version_check(
+      VersionCheck::version_check(
         instances => [ ($dbh ? { dbh => $dbh, dsn => $dsn } : ()) ],
         protocol  => $o->get('version-check'),
      );
--- a/lib/VersionCheck.pm
+++ b/lib/VersionCheck.pm
@@ -1,4 +1,4 @@
-# This program is copyright 2012 Percona Ireland Ltd.
+# This program is copyright 2012-2013 Percona Ireland Ltd.
 # Feedback and improvements are welcome.
 #
 # THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
@@ -15,12 +15,10 @@
 # this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 # Place, Suite 330, Boston, MA  02111-1307  USA.
 # ###########################################################################
-# Pingback package
+# VersionCheck package
 # ###########################################################################
 {
-# Package: Pingback
-# Pingback gets and reports program versions to Percona.
-package Pingback;
+package VersionCheck;

 use strict;
 use warnings FATAL => 'all';
@@ -683,5 +681,5 @@ sub _d {
 1;
 }
 # ###########################################################################
-# End Pingback package
+# End VersionCheck package
 # ###########################################################################
--- a/t/lib/VersionCheck.t
+++ b/t/lib/VersionCheck.t
@@ -12,7 +12,7 @@ use English qw(-no_match_vars);
 use Test::More;
 use Data::Dumper;

-use Pingback;
+use VersionCheck;
 use DSNParser;
 use Sandbox;
 use PerconaTest;
@@ -23,7 +23,7 @@ my $sb  = new Sandbox(basedir => '/tmp', DSNParser => $dp);
 my $master_dbh = $sb->get_dbh_for('master');
 my $slave1_dbh = $sb->get_dbh_for('slave1');

-my $vc = 'Pingback';
+my $vc = 'VersionCheck';

 sub test_v {
   my (%args) = @_;
@@ -52,7 +52,7 @@ sub test_v {
         },
      ],
   );
-   diag(Dumper($versions));
+
   is_deeply(
      $versions,
      $args{versions},
@@ -168,7 +168,6 @@ SKIP: {
 # at least know that an OS should have these two things: a word
 # and version with at least major and minor numbers.
 my $os = $vc->get_os_version;
-diag($os);

 like(
   $os,
@@ -216,4 +215,3 @@ is_deeply(
 ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox")
   if $master_dbh;
 done_testing;
-exit;