add (working) dirk.pl + other bits

[dweather.git] / DWeather / lib / DWeather / Debug.pm

diff --git a/DWeather/lib/DWeather/Debug.pm b/DWeather/lib/DWeather/Debug.pm
index 3535184b3461918e1d853ea9a946f04de2417d1e..d67b70221022d02e129858c3622c2d417f9ba5d0 100644 (file)
--- 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 $_"); 
                }