$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'",
