From 1f5e5ede61d38e707e4e45e67b1fc64827e54c67 Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Wed, 10 Apr 2013 16:59:37 -0600
Subject: [PATCH] Update Agent in pt-agent.

---
 bin/pt-agent | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/pt-agent b/bin/pt-agent
index e752b89e..f2c929f9 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -1248,7 +1248,7 @@ has 'username' => (
    is       => 'rw',
    isa      => 'Str',
    required => 1,
-   default  => $ENV{USER} || $ENV{LOGNAME},
+   default  => sub { return $ENV{USER} || $ENV{LOGNAME} },
 );
 
 has 'hostname' => (