view release on metacpan or  search on metacpan

easyxs/ppport.h  view on Meta::CPAN

KEY_binmode|5.003007||Viu
KEY_bless|5.003007||Viu
KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
KEY_catch|5.033007||Viu
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu
KEY_connect|5.003007||Viu
KEY_continue|5.003007||Viu
KEY_cos|5.003007||Viu
KEY_crypt|5.003007||Viu
KEY___DATA|5.003007||Viu

easyxs/ppport.h  view on Meta::CPAN

Perl_isnan|5.006001|5.006001|n
PERL_IS_SUBWORD_ADDR|5.027007||Viu
PERL_IS_UTF8_CHAR_DFA|5.035004||Viu
PERL_JNP_TO_DECIMAL|5.033001||Viu
Perl_langinfo|5.027004|5.027004|n
PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu
PerlLIO_dup_cloexec|5.027008||Viu
PerlLIO_flock|5.005000||Viu
PerlLIO_fstat|5.005000||Viu
PerlLIO_ioctl|5.005000||Viu
PerlLIO_isatty|5.005000||Viu

t/lists.t  view on Meta::CPAN

    if ($Config{'d_fchmod'}) {
        lives_ok(
            sub { chmod 0777, \*STDIN },
            'chmod w/ filehandle',
        );
    }

    #----------------------------------------------------------------------

    lives_ok(
        sub { chown 0, 0, "$good_dir/foo" },
        'chown w/ one approved path',
    );

    lives_ok(
        sub { chown 0, 0, "$good_dir/foo", "$good_dir/bar" },
        'chown w/ two approved args',
    );

    throws_ok(
        sub { chown 0, 0, "$good_dir/foo", "$good_dir/bar", "$tempdir/baz" },
        'Filesys::Restrict::X::Forbidden',
        'chown w/ two approved args and one forbidden',
    );

    if ($Config{'d_fchown'}) {
        lives_ok(
            sub { chown 0, 0, \*STDIN },
            'chown w/ filehandle',
        );
    }

    #----------------------------------------------------------------------

    my $now = time;

    lives_ok(
        sub { utime $now, $now, "$good_dir/foo" },
        'utime w/ one approved path',