From 1ad62f649328dc563f7f21be3c384f5adf18af1d Mon Sep 17 00:00:00 2001
From: bharanee rathna <unknown>
Date: Tue, 11 Dec 2007 07:25:21 -0800
Subject: [perl #48489] patch to fix perl bug #7013 From: "bharanee rathna"
 (via RT) <perlbug-followup@perl.org> Message-ID:
 <rt-3.6.HEAD-28750-1197415521-1978.48489-75-0@perl.org>

Just the pp_hot.c portion of this patch applied along with removing
the TODO from the test added in the previous change.

p4raw-id: //depot/perl@34833
---
 lib/perl5db.t | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/perl5db.t')

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 22a8271c5e..fd65ef92e4 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -76,9 +76,8 @@ like($contents, qr/sub factorial/,
     'The ${main::_<filename} variable in the debugger was not destroyed'
 );
 
-TODO: {
+{
     local $ENV{PERLDB_OPTS} = "ReadLine=0";
-    local $::TODO = "lvalueness isn't propagated in the debugger";
     my $output = runperl(switches => [ '-d' ], progfile => '../lib/perl5db/t/lvalue-bug');
     like($output, qr/foo is defined/, 'lvalue subs work in the debugger');
 }
-- 
cgit v1.2.1