From c295b5342a6359d1a5183332abcfb064f0992a15 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Sun, 26 Feb 2012 18:32:37 +0100
Subject: [PATCH] include actual Range object in X::OutOfRange error from
 Date.new

---
 src/core/Exceptions.pm | 2 +-
 src/core/Temporal.pm   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/core/Exceptions.pm b/src/core/Exceptions.pm
index 331b21ab415..30cccca4e4d 100644
--- 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
index 5035375ebb8..bae14fae946 100644
--- 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,
                    );
     }