File tree 10 files changed +17
-9
lines changed
10 files changed +17
-9
lines changed Original file line number Diff line number Diff line change 1
1
Revision history for Perl extension Win32::Unicode
2
2
3
+ 0.38 Wed Aug 8 01:31:58 2012
4
+ [NEW FEATURES]
5
+ - added same IO::Handle like methods (suggested by bokutin++)
6
+
7
+ [CHANGES]
8
+ - Win32::Unicode::File::slurp more like File::Slurp::slurp.
9
+
3
10
0.37 Tue Jul 9 02:37:07 2012
4
11
[BUG FIXES]
5
12
- fixed Win32::Unicode::File::read methods was crashing (reported by Thomas Eckardt)
@@ -16,6 +23,7 @@ Revision history for Perl extension Win32::Unicode
16
23
- fixed cannot read binary file on read file.
17
24
- fixed memory leak on read file.
18
25
- fixed parse arguments logic on Win32::Unicode::Native.
26
+
19
27
[NEW FEATURES]
20
28
- support offset on read().
21
29
Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ use warnings;
5
5
use 5.008003;
6
6
use Exporter ();
7
7
8
- our $VERSION = ' 0.37 ' ;
8
+ our $VERSION = ' 0.38 ' ;
9
9
10
10
use Win32::Unicode::Console ' :all' ;
11
11
use Win32::Unicode::File ' :all' ;
Original file line number Diff line number Diff line change @@ -15,7 +15,7 @@ our @EXPORT = qw/printW printfW warnW sayW dieW/;
15
15
our @EXPORT_OK = qw/ / ;
16
16
our %EXPORT_TAGS = (' all' => [@EXPORT , @EXPORT_OK ]);
17
17
18
- our $VERSION = ' 0.37 ' ;
18
+ our $VERSION = ' 0.38 ' ;
19
19
20
20
# default std handle
21
21
my $STD_HANDLE = {
Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ use warnings;
5
5
use 5.008003;
6
6
use Exporter ' import' ;
7
7
8
- our $VERSION = ' 0.37 ' ;
8
+ our $VERSION = ' 0.38 ' ;
9
9
our @EXPORT = grep { !/import |BEGIN|EXPORT/ && Win32::Unicode::Constant-> can($_ ) } keys %Win32::Unicode::Constant ::;
10
10
11
11
use constant CYGWIN => $^O eq ' cygwin' ;
Original file line number Diff line number Diff line change @@ -19,7 +19,7 @@ our @EXPORT = qw/file_type file_size mkdirW rmdirW getcwdW chdirW findW findd
19
19
our @EXPORT_OK = qw/ / ;
20
20
our %EXPORT_TAGS = (' all' => [@EXPORT , @EXPORT_OK ]);
21
21
22
- our $VERSION = ' 0.37 ' ;
22
+ our $VERSION = ' 0.38 ' ;
23
23
24
24
# global vars
25
25
our $cwd ;
Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ use warnings;
5
5
use 5.008003;
6
6
use Exporter ' import' ;
7
7
8
- our $VERSION = ' 0.37 ' ;
8
+ our $VERSION = ' 0.38 ' ;
9
9
10
10
use Win32::Unicode::Constant;
11
11
use Win32::Unicode::Util;
Original file line number Diff line number Diff line change @@ -19,7 +19,7 @@ our @EXPORT = qw/file_type file_size copyW moveW unlinkW touchW renameW statW ut
19
19
our @EXPORT_OK = qw/ filename_normalize slurp/ ;
20
20
our %EXPORT_TAGS = (' all' => [@EXPORT , @EXPORT_OK ]);
21
21
22
- our $VERSION = ' 0.37 ' ;
22
+ our $VERSION = ' 0.38 ' ;
23
23
24
24
my %FILE_TYPE_ATTRIBUTES = (
25
25
s => FILE_ATTRIBUTE_SYSTEM,
Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ use warnings;
5
5
use 5.008003;
6
6
use Exporter ' import' ;
7
7
8
- our $VERSION = ' 0.37 ' ;
8
+ our $VERSION = ' 0.38 ' ;
9
9
10
10
use Win32::Unicode::Console ' :all' ;
11
11
use Win32::Unicode::File ' :all' ;
Original file line number Diff line number Diff line change @@ -15,7 +15,7 @@ our @EXPORT = qw/systemW execW/;
15
15
our @EXPORT_OK = qw/ / ;
16
16
our %EXPORT_TAGS = (' all' => [@EXPORT , @EXPORT_OK ]);
17
17
18
- our $VERSION = ' 0.37 ' ;
18
+ our $VERSION = ' 0.38 ' ;
19
19
20
20
# cmd path
21
21
my $SHELL = do {
Original file line number Diff line number Diff line change @@ -2,7 +2,7 @@ package Win32::Unicode::XS;
2
2
use strict;
3
3
use warnings;
4
4
5
- our $VERSION = ' 0.37 ' ;
5
+ our $VERSION = ' 0.38 ' ;
6
6
7
7
use XSLoader;
8
8
XSLoader::load(' Win32::Unicode' , $VERSION );
You can’t perform that action at this time.
0 commit comments