From 4a04837378b1653781c242b094a72d5133519008 Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Thu, 9 Aug 2012 16:45:29 -0300
Subject: [PATCH] Updated t/lib/Pingback.t to use the new type names

---
 lib/Pingback.pm  | 13 +++++++++----
 t/lib/Pingback.t |  4 ++--
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/lib/Pingback.pm b/lib/Pingback.pm
index 76a6a4f5..84eec7a6 100644
--- a/lib/Pingback.pm
+++ b/lib/Pingback.pm
@@ -28,10 +28,15 @@ use English qw(-no_match_vars);
 
 use constant PTDEBUG => $ENV{PTDEBUG} || 0;
 
-use Data::Dumper;
-$Data::Dumper::Indent    = 1;
-$Data::Dumper::Sortkeys  = 1;
-$Data::Dumper::Quotekeys = 0;
+use Data::Dumper ();
+
+sub Dumper {
+   local $Data::Dumper::Indent    = 1;
+   local $Data::Dumper::Sortkeys  = 1;
+   local $Data::Dumper::Quotekeys = 0;
+
+   Data::Dumper::Dumper(@_);
+}
 
 local $EVAL_ERROR;
 eval {
diff --git a/t/lib/Pingback.t b/t/lib/Pingback.t
index fe7c196b..9c13bdc3 100644
--- a/t/lib/Pingback.t
+++ b/t/lib/Pingback.t
@@ -79,11 +79,11 @@ test_pingback(
    # Client gets this from the server:
    get  => [
       { status  => 200,
-        content => "Perl;perl_variable;PERL_VERSION\nData::Dumper;perl_variable\n",
+        content => "Perl;perl_version;PERL_VERSION\nData::Dumper;perl_module_version\n",
       },
    ],
    # And it responds with this:
-   post => "Data::Dumper;perl_variable;$dd_ver\nPerl;perl_variable;$perl_ver\n",
+   post => "Data::Dumper;perl_module_version;$dd_ver\nPerl;perl_version;$perl_ver\n",
 );
 
 # #############################################################################