17 lines
592 B
Plaintext
17 lines
592 B
Plaintext
$OpenBSD: patch-lib_Net_IMP_Cascade_pm,v 1.1 2017/07/29 19:05:50 bluhm Exp $
|
|
|
|
https://github.com/noxxi/p5-net-imp/pull/1
|
|
|
|
Index: lib/Net/IMP/Cascade.pm
|
|
--- lib/Net/IMP/Cascade.pm.orig
|
|
+++ lib/Net/IMP/Cascade.pm
|
|
@@ -192,7 +192,7 @@ sub new_analyzer {
|
|
my $str = ! defined( $buf->{data} ) ? '<undef>' : do {
|
|
local $_ = $buf->{data};
|
|
$_ = substr($_,0,27).'...' if length($_)>30;
|
|
- s{([\\\n\r\t[^:print:]])}{ sprintf("\\%03o",ord($1)) }esg;
|
|
+ s{([\\\n\r\t[:^print:]])}{ sprintf("\\%03o",ord($1)) }esg;
|
|
$_
|
|
};
|
|
push @out, sprintf("#%02d %d..%d%s%s%s %s %s [%d,%d] '%s'",
|