From: short <>
Date: Sat, 8 Sep 2001 01:22:57 +0000 (+0000)
Subject: Obsolete/broken perl compatibility workaround - [:space:] wasn't wised
X-Git-Url: http://git.jankratochvil.net/?p=www.energie.vellum.cz.git;a=commitdiff_plain;h=59fffe8c46bb14bf3c04330df4e0b7f6fec472f5

Obsolete/broken perl compatibility workaround - [:space:] wasn't wised
---

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;