view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.37  2009-07-09 00:00:00
  - separate Tk modules, make-*.pl, and test scripts
  - remove perl55.bat, and perl56.bat
  - created by INABA Hitoshi

0.36  2009-05-17 00:00:00
  - do local $@ before eval
  - support Tk::getOpenFile and Tk::getSaveFile
  - rewrite in pure batch file perl55.bat, perl56.bat, perl58.bat, and perl510.bat
  - fixing world writable files in tarball before upload to CPAN [ #38127 ]
  - created by INABA Hitoshi

0.35  2009-05-06 00:00:00
  - support do, require, and use for user library
  - upper compatible function ord and reverse functions only when demanded
  - support p modifier of m//, s///, and qr// of perl5.10
  - support !~~ operator
  - change to secure code, open() to sysopen()
  - change to secure code, undef %ENV before system()
  - add make-hp15.pl(HP-15 Hewlett-Packard developed)

pmake.bat  view on Meta::CPAN

            open(FH_TAR, ">$tardir.tar") || die "Can't open file: $tardir.tar\n"; #'
            binmode FH_TAR;
            for my $file (@file) {
                if (-e $file) {
                    mkpath(dirname("$tardir/$file"), 0, 0777);
                    print STDERR "copy $file $tardir/$file\n";
                    copy($file, "$tardir/$file");

#-----------------------------------------------------------------------------
# Sunday December 21, 2008 07:38 PM 
# Fixing world writable files in tarball before upload to CPAN [ #38127 ]
# http://use.perl.org/~bart/journal/38127 (dead link)
# Fix CPAN uploads for world writable files
# http://perlmonks.org/index.pl?node_id=731935
#-----------------------------------------------------------------------------
#                   $tar->add_files("$tardir/$file");
#-----------------------------------------------------------------------------
                    open(FH, $file) || die "Can't open file: $file\n"; #'
                    binmode FH;
                    local $/ = undef; # slurp mode
                    my $data = <FH>;
                    close FH;