From 768fb16513a43afb422698ad4726a447669f8bfc Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 20 Jan 2010 00:00:25 -0600
Subject: propagate void context correctly

---
 lib/MooseX/Mangle.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/MooseX/Mangle.pm b/lib/MooseX/Mangle.pm
index 51531e6..57c7dd6 100644
--- a/lib/MooseX/Mangle.pm
+++ b/lib/MooseX/Mangle.pm
@@ -86,10 +86,15 @@ sub mangle_return {
             my @ret = $self->$orig(@_);
             return $self->$code(@ret);
         }
-        else {
+        elsif (defined(wantarray)) {
             my $ret = $self->$orig(@_);
             return $self->$code($ret);
         }
+        else {
+            $self->$orig(@_);
+            $self->$code();
+            return;
+        }
     });
 }
 
-- 
cgit v1.2.3