&! new esc can be anything

[subdirmk.git] / subdirmk / generate

diff --git a/subdirmk/generate b/subdirmk/generate
index 02722aa31bf1a9c037ac07e8ab7c6eda453b4fcb..ae5db303ea79c56504b76070a29f018ab4c9b23f 100755 (executable)
--- a/subdirmk/generate
+++ b/subdirmk/generate
@@ -150,7 +150,7 @@ sub filter_subdir_mk ($$$$$) {
            } elsif (s{^![ \t]+}{}) {
                o $_;
                $_ = '';
-           } elsif (s{^!(\pPosixWord+|\pPosixPunct+)[ \t]*}{}) {
+           } elsif (s{^!(\S+)(?:[ \t]+|$)}{}) {
                $esclit = $1;
                $esc = $esclit;
                $esc =~ s/\W/\\$&/g;