This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Die with $@ instead of empty message
authorJosh ben Jore <jjore@cpan.org>
Sat, 10 Jul 2010 14:54:55 +0000 (07:54 -0700)
committerJosh ben Jore <jjore@cpan.org>
Sat, 10 Jul 2010 19:25:12 +0000 (19:25 +0000)
lib/perl5db.pl

index 8159b41..b49fc41 100644 (file)
@@ -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;