view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.31  2009-01-29 00:00:00
  - create test data file on execute test.pl
  - require run-time module version
  - rewrite all about "split" logic
  - created by INABA Hitoshi

0.30  2009-01-04 00:00:00
  - support context when calling lc(), lc, uc(), uc
  - support chr(0x5C) ended path on MSWin32
    - file test operators
    - functions lstat(), opendir(), stat(), and unlink()
    - glob() and <WILDCARD>
  - remove pl2ebat.bat, jperl55.bat, jperl58.bat, and jperl510.bat
  - merge esjis.pl into Sjis.pm
  - matched variables $1,$2,$3,... after s/// came to function as it was a description
  - support function of chr, ord, and reverse again
  - add test filetest, pathdir, pathfile, and perlmemo
  - created at kanmi-kissa Hahaso in Chichibu

0.29  2008-11-20 00:00:00
  - remove \G from $your_gap

lib/Arabic.pm  view on Meta::CPAN

            #
            # Filter >
            # Source >>>
            # Escape >>>>> executable without re-escape
            #
            # Filter >>>
            # Source >
            # Escape >>>>> executable without re-escape
            #----------------------------------------------------

            my $mtime_filter = (stat(__FILE__     ))[9];
            my $mtime_source = (stat($filename    ))[9];
            my $mtime_escape = (stat("$filename.e"))[9];
            if (($mtime_escape < $mtime_source) or ($mtime_escape < $mtime_filter)) {
                unlink "$filename.e";
            }
        }
    }

    if (not -e("$filename.e")) {
        my $fh = gensym();
        Earabic::_open_a($fh, "$filename.e") or die __FILE__, ": Can't write open file: $filename.e\n";

lib/Arabic.pm  view on Meta::CPAN

        else {
            CORE::eval q{ flock($fh, LOCK_EX) };
        }

        CORE::eval q{ truncate($fh, 0) };
        seek($fh, 0, 0) or die __FILE__, ": Can't seek file: $filename.e\n";

        my $e_script = Arabic::escape_script($filename);
        print {$fh} $e_script;

        my $mode = (stat($filename))[2] & 0777;
        chmod $mode, "$filename.e";

        close($fh) or die "Can't close file: $filename.e: $!";
    }

    my $fh = gensym();
    Earabic::_open_r($fh, "$filename.e") or die __FILE__, ": Can't read open file: $filename.e\n";

    if (0) {
    }