From 1cb611b5748fc55e377faaab3471bc10076c827b Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Tue, 9 Apr 2013 17:12:11 -0600
Subject: [PATCH] Don't pass entry_link unless given to avoid stack trace
 error.

---
 bin/pt-agent | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/bin/pt-agent b/bin/pt-agent
index ae210cb5..5a089c4a 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -4942,12 +4942,13 @@ sub get_api_client {
    my $interval = $args{interval};
 
    # Optional args
-   my $tries    = $args{tries};
-   my $_oktorun = $args{oktorun} || sub { return $oktorun };
+   my $tries      = $args{tries};
+   my $_oktorun   = $args{oktorun}    || sub { return $oktorun };
+   my $entry_link = $args{entry_link} || $ENV{PWS_ENTRY_LINK};
 
-   my $client = Percona::WebAPI::Client->new(
-      api_key    => $api_key,
-      entry_link => $args{entry_link} || $ENV{PWS_ENTRY_LINK},
+   my $client     = Percona::WebAPI::Client->new(
+      api_key => $api_key,
+      ($entry_link ? (entry_link => $entry_link) : ()),
    );
 
    my $entry_links;