view release on metacpan or  search on metacpan

inc/File/Fetch.pm  view on Meta::CPAN

435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
### we can only set passive mode in interactive sesssions, so bail out
### if $FTP_PASSIVE is set
return if $FTP_PASSIVE;
 
### see if we have a wget binary ###
if( my $ncftp = can_run('ncftp') ) {
     
    my $cmd = [
        $ncftp,
        '-V',                   # do not be verbose
        '-p', $FROM_EMAIL,      # email as password
        $self->host,            # hostname
        dirname($to),           # local dir for the file
                                # remote path to the file
        File::Spec::Unix->catdir( $self->path, $self->file ),
    ];
     
    ### shell out ###
    my $captured;
    unless(run( command => $cmd, 
                buffer  => \$captured,