Allow |= not give a warning.

rocky · May 31, 2014 · e11c98f · e11c98f
1 parent ce6a24d
commit e11c98f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Devel/Trepan/DB/Sub.pm b/lib/Devel/Trepan/DB/Sub.pm
@@ -246,6 +246,7 @@ sub DB::sub {
     if ($DB::sub eq 'DESTROY' or
         substr($DB::sub, -9) eq '::DESTROY' or not defined wantarray) {
         &$DB::sub;
+	no warnings 'uninitialized';
         $DB::single |= pop(@stack);
         $DB::ret = undef;
     }