view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        * Add Perl::OSType as a prerequisite module
          22aeb3f6615752602c48942f1a0e822ed3cb9d1c

  0.024 16 June 2019

        * Respin release

  0.023 16 June 2019

      * SimpleZip.pm
        Populate extended attributes for file times & unix uid/gid
        2036dcc60355ad32d6e1d3dbc5cbe761327e967f

      * SimpleUnzip.pm
        * Added FilesOnly option
        * Added extract method
          0f1e98f94c6e0c8a8a874311bcdc18cc90ea7b54

      * Added source to github

      * Added .travis & .appveyor files

lib/Archive/Zip/SimpleZip.pm  view on Meta::CPAN

        if (! $got->parsed("name"))
        {
            $got->setValue(name => IO::Compress::Zip::canonicalName($filename, $isDir && ! $isLink));
        }
        else
        {
            $got->setValue(name => IO::Compress::Zip::canonicalName($got->getValue("name"), $isDir && ! $isLink));
        }
    }

    my ($mode, $uid, $gid, $size, $atime, $mtime, $ctime) ;

    if ( $got->parsed('storelinks') )
    {
        ($mode, $uid, $gid, $size, $atime, $mtime, $ctime)
                = (lstat($filename))[2, 4, 5, 7, 8, 9, 10] ;
    }
    else
    {
        ($mode, $uid, $gid, $size, $atime, $mtime, $ctime)
                = (stat($filename))[2, 4, 5,7, 8, 9, 10] ;
    }

    $got->setValue(time => $mtime);

    if (! $got->getValue('minimal')) {

        $got->setValue(extime => [$atime, $mtime, $ctime]) ;

        use Perl::OSType;
        my $type = Perl::OSType::os_type();
        if ( $type eq 'Unix' )
        {
            $got->setValue(exunixn => [$uid, $gid]) ;
        }
        # TODO add Windows
    }

    $self->_newStream($filename, $got);

    if($isLink)
    {
        my $target = readlink($filename);
        $self->{Zip}->write($target);