From f91ab0390bada7728ca897245b02404121c61df5 Mon Sep 17 00:00:00 2001
From: Gerhard Jungwirth <gjungwirth@sipwise.com>
Date: Tue, 3 Jun 2014 14:56:21 +0200
Subject: [PATCH] MT#7239 fix uri creation

maybe related: MT#5615
(cherry picked from commit 69773db995cefb1a89eb8b3026e4dc79e61630c4)
---
 lib/Data/HAL.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/Data/HAL.pm b/lib/Data/HAL.pm
index 44bcec1..984a593 100644
--- a/lib/Data/HAL.pm
+++ b/lib/Data/HAL.pm
@@ -18,7 +18,10 @@ our $VERSION = '1.000';
 
 my $uri_from_str = sub {
     my ($val) = @_;
-    return $val->$_isa('Data::HAL::URI') ? $val : Data::HAL::URI->new($val);
+    return $val->$_isa('Data::HAL::URI') ? $val : Data::HAL::URI->new(
+            uri => URI->new($val),
+            _original => $val,
+    );
 };
 
 has('embedded', is => 'rw', isa => ArrayRef[InstanceOf['Data::HAL']]);