lib/perl5db.pl: Workaround rt#116771 by putting DB::Obj inside BEGIN { }
authorKent Fredric <kentfredric@gmail.com>
Wed, 13 Mar 2013 16:17:38 +0000 (05:17 +1300)
committerRicardo Signes <rjbs@cpan.org>
Tue, 19 Mar 2013 03:02:06 +0000 (23:02 -0400)
lib/perl5db.pl

index e6ee7c0..3601dff 100644 (file)
@@ -3137,6 +3137,18 @@ again.
     ();
 } ## end sub DB
 
+# Because DB::Obj is used above,
+#
+#   my $obj = DB::Obj->new(
+#
+# The following package declaraton must come before that,
+# or else runtime errors will occur with
+#
+#   PERLDB_OPTS="autotrace nonstop"
+#
+# ( rt#116771 )
+BEGIN {
+
 package DB::Obj;
 
 sub new {
@@ -3951,6 +3963,8 @@ sub _handle_special_char_cmd_wrapper_commands {
     return;
 }
 
+} ## end DB::Obj
+
 package DB;
 
 # The following code may be executed now: