include actual Range object in X::OutOfRange error from Date.new

rakudo · Feb 26, 2012 · c295b53 · c295b53
1 parent 9d39e88
commit c295b53
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/Exceptions.pm b/src/core/Exceptions.pm
@@ -41,7 +41,7 @@ my class X::OutOfRange is Exception {
     has $.got = '<unknown>';
     has $.range = '<unknown>';
     method message() {
-        "$.what out of range. Is: $.got, should be in $.range"
+        "$.what out of range. Is: $.got, should be in $.range.gist()"
     }
 }
 

diff --git a/src/core/Temporal.pm b/src/core/Temporal.pm
@@ -95,7 +95,7 @@ my role Dateish {
             or die X::OutOfRange.new(
                         what    => $name,
                         got     => $val,
-                        range   => $range.perl,
+                        range   => $range,
                    );
     }