X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=DWeather%2Flib%2FDWeather%2FDebug.pm;h=d67b70221022d02e129858c3622c2d417f9ba5d0;hb=94bc0e65b4da21f0d982ea9185f4a6f3651f78e4;hp=3535184b3461918e1d853ea9a946f04de2417d1e;hpb=631bc0f2b224c9ebfd1dd5827814e5aba3e6d023;p=dweather.git diff --git a/DWeather/lib/DWeather/Debug.pm b/DWeather/lib/DWeather/Debug.pm index 3535184..d67b702 100644 --- a/DWeather/lib/DWeather/Debug.pm +++ b/DWeather/lib/DWeather/Debug.pm @@ -61,7 +61,7 @@ sub dbg chomp $r; my @l = split /\n/, $r; for (@l) { - s/([\x00-\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg; + s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg; # print "$_\n" if defined \*STDOUT; $fp->writeunix($t, "$ts $_"); }