# diff -u Delegation.pm~ Delegation.pm
--- Delegation.pm~      Mon Apr 22 23:20:23 2002
+++ Delegation.pm       Fri Jun 13 11:22:45 2003
@@ -53,6 +53,7 @@
                                next DELEGATOR if exists $delegated->{$to[0]};
                                foreach my $as (@as) {
                                        push @results, delegate($delegated,$wantarray,$invocant,$to[0],$as,\@args);
+                                       die $@ if $@;
                                }
                        }
                        elsif (@as==1) {
@@ -60,6 +61,7 @@
                                foreach my $to (@to) {
                                        next if exists $delegated->{$to};
                                        push @results, delegate($delegated,$wantarray,$invocant,$to,$as[0],\@args);
+                                       die $@ if $@;
                                }
                        }
                        else {
@@ -69,6 +71,7 @@
                                        my $as = shift @as;
                                        next if exists $delegated->{$to};
                                        push @results, delegate($delegated,$wantarray,$invocant,$to,$as,\@args);
+                                       die $@ if $@;
                                }
                        }
                }