[Net::FTPServer] Fwd: [rt.cpan.org #27640] MLST is broken

[Richard Jones]

On Tue, Jun 19, 2007 at 08:02:47AM -0400, Andrew Williams via RT wrote:
> 
> Tue Jun 19 08:02:46 2007: Request 27640 was acted upon.
> Transaction: Ticket created by ASW
>        Queue: Net-FTPServer
>      Subject: MLST is broken
>    Broken in: 1.122
>     Severity: Important
>        Owner: Nobody
>   Requestors: address@hidden
>       Status: new
>  Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=27640 >
> 
> 
> MLST commands do not work.
> in FTPServer.pm, _MLST_command(), dir() is called on a filehandle
> object.  $self->{cwd} is a dir handle.
> attached patch fixes the problem.
> 

> --- FTPServer.pm      2007-06-19 12:59:47.610741000 +0100
> +++ FTPServer.pm.hack 2007-06-19 12:59:09.967037000 +0100
> @@ -6741,8 +6741,8 @@
>      # If not file name is given, then we need to return
>      # status on the current directory. Else we return
>      # status on the file or directory name given.
> -    my $fileh = $self->{cwd};
> -    my $dirh = $fileh->dir;
> +    my $dirh = $self->{cwd};
> +    my $fileh;
>      my $filename = ".";
>  
>      if ($rest ne "")


-- 
Richard Jones
Red Hat