MT#7239 fix uri creation

maybe related: MT#5615 (cherry picked from commit 69773db995)
12 years ago · f91ab0390b
parent e9a9ab0a66
commit f91ab0390b
1 changed files with 4 additions and 1 deletions
--- 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']]);