Skip to content
Browse files

[GH #833] preload only when debugging perl via -d

As per jkeenans comment #833 (comment)
  • Loading branch information...
1 parent be71d13 commit c4de4b4356762231f69cf3106ee6c1edc4c40643 @rurban rurban committed Sep 17, 2012
Showing with 5 additions and 3 deletions.
  1. +5 −3 Configure.pl
View
8 Configure.pl
@@ -44,9 +44,11 @@
# preload all steps for debugging because some Windows systems cannot
# do "b postpone stepname"
-for my $step_name (@{ $steps_list_ref } ) {
- eval "use $step_name;"; ## no critic (BuiltinFunctions::ProhibitStringyEval)
- die $@ if $@;
+if (defined &DB::DB) {
+ for my $step_name (@{ $steps_list_ref } ) {
+ eval "use $step_name;"; ## no critic (BuiltinFunctions::ProhibitStringyEval)
+ die $@ if $@;
+ }
}
my $opttest = Parrot::Configure::Options::Test->new($args);

0 comments on commit c4de4b4

Please sign in to comment.
Something went wrong with that request. Please try again.