[Mimedefang] Annoying warning message since activating Razor

[Jason Englander]

On Fri, 17 Jan 2003, Rob MacGregor wrote:

> Ok, lines 188 to 192:
>
> sub path {
>     my @path = split(':', $ENV{PATH}) if defined ($ENV{PATH});
>     foreach (@path) { $_ = '.' if $_ eq '' }
>     return @path;
> }

I posted that?  Hmmmph.  Try this in place of 189 instead, this is what I
used:

    my (@path);
    @path = split(':', $ENV{PATH}) if defined($ENV{PATH});

It shuts up my perl 5.8.0, I would imagine it would work for 5.005 too,
but that sure was a ways back for me ;-)

  Jason

-- 
Jason Englander <jason at englanders.cc>
394F 7E02 C105 7268 777A  3F5A 0AC0 C618 0675 80CA