From 59fffe8c46bb14bf3c04330df4e0b7f6fec472f5 Mon Sep 17 00:00:00 2001 From: short <> Date: Sat, 8 Sep 2001 01:22:57 +0000 Subject: [PATCH] Obsolete/broken perl compatibility workaround - [:space:] wasn't wised --- obsah_init.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/obsah_init.pl b/obsah_init.pl index 917e2da..2c1c11d 100755 --- a/obsah_init.pl +++ b/obsah_init.pl @@ -89,7 +89,7 @@ while (<>) { $contents.="\004"; next; } - if (/^[^[:space:]]/ || (/^\s/ && $contents=~/\004/)) { + if (/^[^ \t]/ || (/^\s/ && $contents=~/\004/)) { $contents.="\001$_\002"; $first=$_; next; -- 1.8.3.1