removed unrequired explicit 'list' data levels

[scpubgit/System-Introspector.git] / lib / System / Introspector / Util.pm

diff --git a/lib/System/Introspector/Util.pm b/lib/System/Introspector/Util.pm
index 99788ef..530f9f9 100644 (file)
--- a/lib/System/Introspector/Util.pm
+++ b/lib/System/Introspector/Util.pm
@@ -44,7 +44,7 @@ sub transform_exceptions (&) {
     my ($code) = @_;
     my $result = eval { $code->() };
     if (my $error = $@) {
-        return { error => $error->message }
+        return { __error__ => $error->message }
             if is_report_exception $error;
         die $@;
     }