[MacPerl] re: Use of uninitialized value.

[Chris Nandor]

>>      grep { /^-s$/o && ($sel = 1) } @ARGV;

I am not sure how this crept in, but the /o there is superfluous.  /o only
has an effect if there are variables in the regex; it tells perl that the
variables should not be re-interpolated on successive matches, but only the
first time through.  Since there are no variables in the regex, the /o
doesn't do anything.

-- 
Chris Nandor                      [EMAIL PROTECTED]    http://pudge.net/
Open Source Development Network    [EMAIL PROTECTED]     http://osdn.com/