view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
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/Latin10.pm  view on Meta::CPAN

166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
        #
        # 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();
    Elatin10::_open_a($fh, "$filename.e") or die __FILE__, ": Can't write open file: $filename.e\n";

lib/Latin10.pm  view on Meta::CPAN

222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
    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 = Latin10::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();
Elatin10::_open_r($fh, "$filename.e") or die __FILE__, ": Can't read open file: $filename.e\n";
 
if (0) {
}