Die with $@ instead of empty message

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 8159b41..b49fc41 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -6660,7 +6660,7 @@ sub parse_options {
                 local \$doret = -2; 
                 require '$optionRequire{$option}';
                 1;
-               } || die    # XXX: shouldn't happen
+               } || die $@   # XXX: shouldn't happen
           if defined $optionRequire{$option}
           && defined $val;