From 1c29d6adb355c0cadcc7a8e3e94bd750d9dfda28 Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Fri, 14 Jun 2013 19:59:14 -0700
Subject: [PATCH] Make Agent.versions rw.

---
 bin/pt-agent                         | 4 ++--
 lib/Percona/WebAPI/Resource/Agent.pm | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/pt-agent b/bin/pt-agent
index b18ea394..13e28297 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -1263,13 +1263,13 @@ has 'hostname' => (
 );
 
 has 'alias' => (
-   is       => 'ro',
+   is       => 'rw',
    isa      => 'Str',
    required => 0,
 );
 
 has 'versions' => (
-   is       => 'ro',
+   is       => 'rw',
    isa      => 'Maybe[HashRef]',
    required => 0,
 );
diff --git a/lib/Percona/WebAPI/Resource/Agent.pm b/lib/Percona/WebAPI/Resource/Agent.pm
index f73816fd..8c6b8c8c 100644
--- a/lib/Percona/WebAPI/Resource/Agent.pm
+++ b/lib/Percona/WebAPI/Resource/Agent.pm
@@ -46,13 +46,13 @@ has 'hostname' => (
 );
 
 has 'alias' => (
-   is       => 'ro',
+   is       => 'rw',
    isa      => 'Str',
    required => 0,
 );
 
 has 'versions' => (
-   is       => 'ro',
+   is       => 'rw',
    isa      => 'Maybe[HashRef]',
    required => 0,
 );