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

[www.energie.vellum.cz.git] / obsah_init.pl

diff --git a/obsah_init.pl b/obsah_init.pl
index 917e2da..2c1c11d 100755 (executable)
--- 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;