| Subject: | $/ breaks both console and API (Fix included) |
| Date: | Tue, 18 Nov 2014 12:15:42 +0000 |
| To: | "bug-Devel-ebug [...] rt.cpan.org" <bug-Devel-ebug [...] rt.cpan.org> |
| From: | <1dvwx+ffjo [...] guerrillamail.com> |
See: http://www.perlmonks.org/?node_id=1107549
Changing $/ like so
open ( TEXT, "file.txt" );
local $/ = undef;
binmode TEXT;
my $text = <TEXT>;
causes the console to just stop accepting commands, same with using Devel::ebug in code.
Quick fix thanks to Corion:
--- BROKEN
+++ FIXED
@@ -138,6 +138,7 @@
sub get {
exit unless $context->{socket};
+ local $/= "\n";
my $data = $context->{socket}->getline;
my $req = Load(pack("h*", $data));
push @{ $context->{history} }, $req
----
Sent using GuerrillaMail.com
Block or report abuse: https://www.guerrillamail.com/abuse/?a=Q1RzSCkFVbEZxQu25Xk%2FYACJTtqR3Jlf1aM%3D