More on WMK lockup...

People

I have spent some time attempting to work out why WMK has stopped working on
my Redhat 8.0 system... I have traced the problem to SPLIT_ARGV in WMK. The
code there is 
sub split_argv {
    my ($str) = @_;
    my (@argv) = ();
    my ($r) = '';
    while (1) {
        next if $str =~ s|^"([^"\\]*(?:\\.[^"\\]*)*)"(.*)$|$r .= $1, $2|e;
        print ("n $str \n");
        next if $str =~ s|^'([^'\\]*(?:\\.[^'\\]*)*)'(.*)$|$r .= $1, $2|e;
        print ("o $str\n");
        next if $str =~ s|^([^\s"']+)(.*)$|$r .= $1, $2|e;
        print ("p $str\n");
        if ($str =~ m|^[\s\n]+| || $str eq '') {
            if ($r ne '') {  
                push(@argv, $r);
                $r = '';   
            }
            $str =~ s|^[\s\n]+||;
            last if ($str eq '');
        }
    }
    return @argv;
}

This produces the output
n -F copy 
o -F copy
p -F copy
n -F copy 
o -F copy
p -F copy
n -F copy 
o -F copy

Now, I have no real idea of how this routine is supposed to work, let alone
being able to fix it... Anyone have any ideas?

Thanks

Darryl

---------
Darryl Smith, VK2TDS   POBox 169 Ingleburn NSW 2565 Australia
Mobile Number 0412 929 634 [+61 4 12 929 634 International] 
www.radio-active.net.au - www.radio-active.net.au\tracking
 



_____________________________________________________________________
Website META Language (WML)                         http://thewml.org
User Support Mailing List                        [email protected]
Automated List Manager                            [email protected]