Char-HP15

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - import $fix_drive_relative_paths from File::DosGlob/1.04
  - support regexp metasymbols \C and \R in regexp
  - support regexp metasymbol \N \N{3} \N{3,} \N{3,5}
  - \N{CHARNAME} means literal N{CHARNAME}
  - \p{PROP} means literal p{PROP}
  - \P{PROP} means literal P{PROP}
  - \X means literal X
  - support POSIX-style character classes
  - modifier /a /d /l /u, and /aa of regexp makes die
  - use 5.12.0; --> use 5.12.0; no strict qw(refs);
  - remove test 201_kanji.t,202_kanji.t,203_kanji.t,204_kanji.t,205_glob.t,210_chmod.t,211_chown.t,212_dbmopen.t,214_glob.t,216_open.t,217_qx.t,218_rename.t,221_sysopen.t,222_system.t,223_truncate.t,225_utime.t,226_chdir.t,227_chmod.t,228_chown.t,229...
  - created by INABA Hitoshi

0.75  2011-06-05 00:00:00
  - remove Esjis::binmode and Esjis::open (it's a bad idea)
  - created by INABA Hitoshi

0.74  2011-06-01 00:00:00
  - remove Esjis::k_ test
  - fix s#foo#\\#, s#foo#\\#g, s'foo'\\', and s'foo'\\'g
  - created by INABA Hitoshi

MANIFEST  view on Meta::CPAN

t/HP15/201_kanji.t
t/HP15/202_kanji.t
t/HP15/203_kanji.t
t/HP15/204_kanji.t
t/HP15/205_glob.t
t/HP15/206_opendir.t
t/HP15/207_stat.t
t/HP15/208_filetest.t
t/HP15/209_grepdir.t
t/HP15/210_chmod.t
t/HP15/211_chown.t
t/HP15/212_dbmopen.t
t/HP15/213_do.t
t/HP15/214_glob.t
t/HP15/215_lstat.t
t/HP15/216_open.t
t/HP15/217_qx.t
t/HP15/218_rename.t
t/HP15/219_require.t
t/HP15/220_stat.t
t/HP15/221_sysopen.t
t/HP15/222_system.t
t/HP15/223_truncate.t
t/HP15/224_unlink.t
t/HP15/226_chdir.t
t/HP15/227_chmod.t
t/HP15/228_chown.t
t/HP15/229_glob.t
t/HP15/230_mkdir.t
t/HP15/231_opendir.t
t/HP15/232_qx.t
t/HP15/233_rename.t
t/HP15/234_rmdir.t
t/HP15/235_system.t
t/HP15/236_utime.t
t/HP15/237_filetest.t
t/HP15/238_filetest.t

t/HP15/211_chown.t  view on Meta::CPAN

}
if ($chcp !~ /932/oxms) {
    print "ok - 1 # SKIP $^X $0\n";
    exit;
}

open(FILE,'>F‹@”\') || die "Can't open file: F‹@”\\n";
print FILE "1\n";
close(FILE);

# chown
if (chown(-1,-1,'F‹@”\')) {
    print "ok - 1 chown $^X $__FILE__\n";
}
else {
    print "not ok - 1 chown: $! $^X $__FILE__\n";
}

unlink('F‹@”\');

__END__

t/HP15/228_chown.t  view on Meta::CPAN

open(FILE,'>D‹@”\/file1.txt') || die "Can't open file: D‹@”\/file1.txt\n";
print FILE "1\n";
close(FILE);
open(FILE,'>D‹@”\/file2.txt') || die "Can't open file: D‹@”\/file2.txt\n";
print FILE "1\n";
close(FILE);
open(FILE,'>D‹@”\/file3.txt') || die "Can't open file: D‹@”\/file3.txt\n";
print FILE "1\n";
close(FILE);

# chown
if (chown(-1,-1,'D‹@”\')) {
    print "ok - 1 chown $^X $__FILE__\n";
}
else {
    print "not ok - 1 chown: $! $^X $__FILE__\n";
}

unlink('D‹@”\/file1.txt');
unlink('D‹@”\/file2.txt');
unlink('D‹@”\/file3.txt');
rmdir('directory');
rmdir('D‹@”\');

__END__