Re: wmk and shebang line

[Jan Ulrich Hasecke <nospam@thanx>]

On 30 Mar 1999, Fritz Zaucker wrote:

>You either use the patch program to apply the patch or you do what you
>described (the other lines are just there to uniquely identify the
>lines by providing the context).

Okay! I tried again and found perhaps a bug in the code: 

    if (not $opt_f) {
         my @outfiles = ();
         my $s = $opts;
-        $s =~ s|-o\s*["']?(?:[^:]+:(?!:))?([^\s@]+)|push(@outfiles, $1),
''|sge;
+        $s =~ s|-o\s*["']?(?:[^:]+:(?!:))?([^\s@'"]+)|push(@outfiles, $1),
''|sge;
         $skipable = &skipable($file, @outfiles);
     }
     else {  


This string causes an error message:

In string, @' now must be written as \@' at /opt/bin/wmk line 482, \ 
near "-o\s*["']?(?:[^:]+:(?!:))?([^\s@'" 

I read this message today better than yesterday and inserted the \ at the
point and it works.

The line now:
$s =~ s|-o\s*["']?(?:[^:]+:(?!:))?([^\s\@'"]+)|push(@outfiles, $1), ''|sge;
                                       ^
         
Ciao!
juh
                              
-- 
juh's Sudelbuch
Täglich tagesfrische Sudeleien
http://www.sudelbuch.de

______________________________________________________________________
Website META Language (WML)                www.engelschall.com/sw/wml/
Official Support Mailing List                   sw-wml@engelschall.com
Automated List Manager                       majordomo@engelschall.com