MPI: make VERBOSE work with perl 5.10.0

EinsteinToolkit · Mar 11, 2020 · d596dd3 · d596dd3
1 parent f0389e5
commit d596dd3
Showing 1 changed file with 8 additions and 7 deletions.
diff --git a/src/detect.pl b/src/detect.pl
@@ -15,13 +15,14 @@
 
 if ($verbose) {
     # we implement VERBOSE by restarting in the debugger and having it print each line
-    if (not defined($ENV{'PERL5DB'})) {
-        $ENV{'PERL5DB'} = 'sub DB::DB {
-            no strict;
-            my ($p, $f, $l) = caller;
-            my $code = \@{"::_<$f"};
-            print STDERR ">> $f:$l: $code->[$l]";
-          }';
+    # this subroutine is defined all the time, just only used when in debug mode
+    sub DB::DB {
+        no strict;
+        my ($p, $f, $l) = caller;
+        my $code = \@{"::_<$f"};
+        print STDERR ">> $f:$l: $code->[$l]";
+    }
+    if (not $^P) {
         exit system($^X, "-d", $0, @ARGV);
     }
 }