Permalink
Browse files

version 0.19

  • Loading branch information...
1 parent aac536c commit cc8045445b042100e825fd5388f9e5536a2694fc @xaicron committed May 6, 2010
View
@@ -1,5 +1,16 @@
Revision history for Perl extension Win32::Unicode
+0.19 Fri May 7 00:31:59 2010 (+900)
+ - Whole
+ - Supported for cygwin.
+ - Created Win32::Unicode::Process.
+ BUT ALPHA LEVEL.
+ - Moved Win32::Unicode::Encode to Win32::Unicode::Util
+ - Win32::Unicode::File
+ - file_size is supported large file.
+ - Win32::Unicode::Dir
+ - Added file_list, dir_list
+
0.18 Sat Apr 10 17:29:54 2010 (+900)
- Win32::Unicode::File
Accelerated "file_type f => $file".
@@ -5,7 +5,7 @@ use warnings;
use 5.008003;
use Exporter ();
-our $VERSION = '0.18';
+our $VERSION = '0.19';
use Win32::Unicode::Console ':all';
use Win32::Unicode::File ':all';
@@ -17,7 +17,7 @@ our @EXPORT = qw/printW printfW warnW sayW dieW/;
our @EXPORT_OK = qw//;
our %EXPORT_TAGS = ('all' => [@EXPORT, @EXPORT_OK]);
-our $VERSION = '0.18';
+our $VERSION = '0.19';
# default std handle
my $STD_HANDLE = {
@@ -5,7 +5,6 @@ use warnings;
use Win32::API ();
use Exporter 'import';
-our $VERISON = '0.18';
our @EXPORT = grep { !/import|BEGIN|EXPORT/ && Win32::Unicode::Define->can($_) } keys %Win32::Unicode::Define::;
use constant +{
@@ -21,7 +21,7 @@ our @EXPORT = qw/file_type file_size mkdirW rmdirW getcwdW chdirW findW findd
our @EXPORT_OK = qw//;
our %EXPORT_TAGS = ('all' => [@EXPORT, @EXPORT_OK]);
-our $VERSION = '0.18';
+our $VERSION = '0.19';
# global vars
our $cwd;
@@ -22,7 +22,7 @@ our @EXPORT = qw/file_type file_size copyW moveW unlinkW touchW renameW statW/;
our @EXPORT_OK = qw/filename_normalize slurp/;
our %EXPORT_TAGS = ('all' => [@EXPORT, @EXPORT_OK]);
-our $VERSION = '0.18';
+our $VERSION = '0.19';
my %FILE_TYPE_ATTRIBUTES = (
s => FILE_ATTRIBUTE_SYSTEM,
@@ -5,7 +5,7 @@ use warnings;
use 5.008003;
use Exporter 'import';
-our $VERSION = '0.18';
+our $VERSION = '0.19';
use Win32::Unicode::Console ':all';
use Win32::Unicode::File ':all';
@@ -17,7 +17,7 @@ our @EXPORT = qw/systemW execW/;
our @EXPORT_OK = qw//;
our %EXPORT_TAGS = ('all' => [@EXPORT, @EXPORT_OK]);
-our $VERSION = '0.18';
+our $VERSION = '0.19';
# cmd path
my $SHELL = do {
@@ -16,8 +16,6 @@ File::Basename::fileparse_set_fstype('MSWIN32');
# export subs
our @EXPORT = qw/utf16_to_utf8 utf8_to_utf16 cygpathw to64int is64int catfile splitdir/;
-our $VERSION = '0.18';
-
# Unicode decoder
my $utf16 = Encode::find_encoding 'utf16-le';

0 comments on commit cc80454

Please sign in to comment.