projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4436972
)
allow features inside interactive debugger
author
Salvador Fandino
<sfandino@yahoo.com>
Sat, 11 Jun 2011 19:20:56 +0000
(12:20 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Sat, 11 Jun 2011 20:19:25 +0000
(13:19 -0700)
lib/perl5db.pl
patch
|
blob
|
history
diff --git
a/lib/perl5db.pl
b/lib/perl5db.pl
index
77a5f35
..
fcc111e
100644
(file)
--- 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';