From e56c1e8df64af1aeccf399e2ac6fb3ac25abbc55 Mon Sep 17 00:00:00 2001
From: Salvador Fandino <sfandino@yahoo.com>
Date: Sat, 11 Jun 2011 12:20:56 -0700
Subject: [PATCH] allow features inside interactive debugger

---
 lib/perl5db.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 77a5f35..fcc111e 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -512,6 +512,12 @@ package DB;
 
 BEGIN {eval 'use IO::Handle'};	# Needed for flush only? breaks under miniperl
 
+BEGIN {
+    require feature;
+    $^V =~ /^v(\d+\.\d+)/;
+    feature->import(":$1");
+}
+
 # Debugger for Perl 5.00x; perl5db.pl patch level:
 $VERSION = '1.34';
 
-- 
2.7.4