SYNOPSIS

generate dc++ xml filelist

perl filelist.pm /path/to/dir

eval "use lib '$root_path./stat/pslib'"; eval "use lib '$root_path./../../../examples/stat/pslib';
use psmisc; use pssql; use Net::DirectConnect; use base 'Net::DirectConnect';
"; #use Net::DirectConnect;
#psmisc::use_try ('Net::DirectConnect');

        $self->{share_full}{$tth} = $full_local, $self->{share_tth}{$full_local} = $tth, $self->{share_tth}{$file} = $tth,
          if $tth;
        $self->{share_full}{$file} ||= $full_local;

POD ERRORS

Hey! The above document had some coding errors, which are explained below:

Around line 27:

Unknown directive: =tofix

Around line 230:

Unknown directive: =cu

Around line 442:

Unknown directive: =old

Around line 601:

Unknown directive: =z