exiftool-vendored.exe 13.25.0 → 13.29.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/LICENSE +254 -254
- package/bin/README.txt +14 -14
- package/bin/exiftool.exe +0 -0
- package/bin/exiftool_files/exiftool.pl +2 -1
- package/bin/exiftool_files/lib/CPAN/Config.pm +98 -98
- package/bin/exiftool_files/lib/Config.pm +111 -111
- package/bin/exiftool_files/lib/Config_git.pl +12 -12
- package/bin/exiftool_files/lib/Config_heavy.pl +1470 -1470
- package/bin/exiftool_files/lib/DynaLoader.pm +761 -761
- package/bin/exiftool_files/lib/Errno.pm +2638 -2638
- package/bin/exiftool_files/lib/Image/ExifTool/Canon.pm +5 -4
- package/bin/exiftool_files/lib/Image/ExifTool/GIMP.pm +1 -1
- package/bin/exiftool_files/lib/Image/ExifTool/ICC_Profile.pm +1 -0
- package/bin/exiftool_files/lib/Image/ExifTool/JPEG.pm +20 -8
- package/bin/exiftool_files/lib/Image/ExifTool/LigoGPS.pm +16 -2
- package/bin/exiftool_files/lib/Image/ExifTool/MPF.pm +5 -1
- package/bin/exiftool_files/lib/Image/ExifTool/Nikon.pm +2 -1
- package/bin/exiftool_files/lib/Image/ExifTool/Olympus.pm +3 -2
- package/bin/exiftool_files/lib/Image/ExifTool/PCAP.pm +5 -5
- package/bin/exiftool_files/lib/Image/ExifTool/Panasonic.pm +9 -1
- package/bin/exiftool_files/lib/Image/ExifTool/Parrot.pm +54 -7
- package/bin/exiftool_files/lib/Image/ExifTool/Pentax.pm +102 -1
- package/bin/exiftool_files/lib/Image/ExifTool/Plot.pm +36 -15
- package/bin/exiftool_files/lib/Image/ExifTool/QuickTime.pm +78 -12
- package/bin/exiftool_files/lib/Image/ExifTool/QuickTimeStream.pl +70 -14
- package/bin/exiftool_files/lib/Image/ExifTool/README +12 -2
- package/bin/exiftool_files/lib/Image/ExifTool/RIFF.pm +15 -6
- package/bin/exiftool_files/lib/Image/ExifTool/Sony.pm +5 -0
- package/bin/exiftool_files/lib/Image/ExifTool/TagLookup.pm +23 -2
- package/bin/exiftool_files/lib/Image/ExifTool/TagNames.pod +149 -92
- package/bin/exiftool_files/lib/Image/ExifTool/WriteExif.pl +2 -0
- package/bin/exiftool_files/lib/Image/ExifTool/WriteQuickTime.pl +3 -0
- package/bin/exiftool_files/lib/Image/ExifTool/Writer.pl +17 -6
- package/bin/exiftool_files/lib/Image/ExifTool/XMP.pm +23 -16
- package/bin/exiftool_files/lib/Image/ExifTool/XMP2.pl +5 -1
- package/bin/exiftool_files/lib/Image/ExifTool.pm +7 -3
- package/bin/exiftool_files/lib/Image/ExifTool.pod +13 -12
- package/bin/exiftool_files/lib/Win32/FindFile.pm +82 -82
- package/bin/exiftool_files/lib/Win32API/File/cFile.pc +168 -168
- package/bin/exiftool_files/lib/XSLoader.pm +372 -372
- package/bin/exiftool_files/lib/auto/Compress/Raw/Lzma/autosplit.ix +3 -3
- package/bin/exiftool_files/readme_windows.txt +16 -16
- package/bin/exiftool_files/windows_exiftool.txt +6 -5
- package/package.json +54 -53
|
@@ -1,104 +1,104 @@
|
|
|
1
|
-
|
|
2
|
-
# This is CPAN.pms systemwide configuration file. This file provides
|
|
3
|
-
# defaults for users, and the values can be changed in a per-user
|
|
4
|
-
# configuration file. The user-config file is being looked for as
|
|
5
|
-
# /.cpan/CPAN/MyConfig.pm.
|
|
6
|
-
|
|
7
|
-
my @urllist = (
|
|
8
|
-
'http://cpan.strawberryperl.com/',
|
|
9
|
-
'http://www.cpan.org/',
|
|
10
|
-
);
|
|
11
|
-
|
|
12
|
-
if ( -d 'C:\\strawberry\\minicpan' ) {
|
|
13
|
-
# If we are on fake Hotel/Airport wireless,
|
|
14
|
-
# prefer the minicpan to the poisoned wireless.
|
|
15
|
-
eval { require LWP::Online; };
|
|
16
|
-
unless ( $@ ) {
|
|
17
|
-
if ( LWP::Online::online() ) {
|
|
18
|
-
push @urllist, q[file:///C:/strawberry/minicpan/];
|
|
19
|
-
} else {
|
|
20
|
-
unshift @urllist, q[file:///C:/strawberry/minicpan/];
|
|
21
|
-
}
|
|
22
|
-
}
|
|
23
|
-
}
|
|
24
|
-
|
|
25
|
-
$CPAN::Config = {
|
|
26
|
-
applypatch => q[],
|
|
27
|
-
auto_commit => q[1],
|
|
28
|
-
build_cache => q[50],
|
|
29
|
-
build_dir => q[C:\\strawberry\\cpan\\build],
|
|
30
|
-
build_dir_reuse => q[0],
|
|
31
|
-
build_requires_install_policy => q[yes],
|
|
32
|
-
bzip2 => q[ ], #will use perl module if it is ' '
|
|
33
|
-
cache_metadata => q[1],
|
|
34
|
-
check_sigs => q[0],
|
|
35
|
-
colorize_print => q[bold green],
|
|
36
|
-
colorize_warn => q[bold red],
|
|
37
|
-
colorize_output => q[0],
|
|
38
|
-
commandnumber_in_prompt => q[0],
|
|
39
|
-
connect_to_internet_ok => q[1],
|
|
40
|
-
cpan_home => q[C:\\strawberry\\cpan],
|
|
41
|
-
curl => q[],
|
|
42
|
-
ftp => q[C:\\Windows\\system32\\ftp.exe],
|
|
43
|
-
ftp_passive => q[1],
|
|
44
|
-
ftp_proxy => q[],
|
|
45
|
-
getcwd => q[cwd],
|
|
46
|
-
gpg => q[],
|
|
47
|
-
gzip => q[ ], #will use perl module if it is ' '
|
|
48
|
-
halt_on_failure => q[1],
|
|
49
|
-
histfile => q[C:\\strawberry\\cpan\\histfile],
|
|
50
|
-
histsize => q[1000],
|
|
51
|
-
http_proxy => q[],
|
|
52
|
-
inactivity_timeout => q[0],
|
|
53
|
-
index_expire => q[1],
|
|
54
|
-
inhibit_startup_message => q[0],
|
|
55
|
-
keep_source_where => q[C:\\strawberry\\cpan\\sources],
|
|
56
|
-
load_module_verbosity => q[none],
|
|
57
|
-
lynx => q[],
|
|
58
|
-
make => q[C:\\strawberry\\c\\bin\\gmake.exe],
|
|
59
|
-
make_arg => q[],
|
|
60
|
-
make_install_arg => q[UNINST=1],
|
|
61
|
-
make_install_make_command => q[C:\\strawberry\\c\\bin\\gmake.exe],
|
|
62
|
-
makepl_arg => q[],
|
|
63
|
-
mbuild_arg => q[],
|
|
64
|
-
mbuild_install_arg => q[--uninst 1],
|
|
65
|
-
mbuildpl_arg => q[],
|
|
66
|
-
ncftp => q[],
|
|
67
|
-
ncftpget => q[],
|
|
68
|
-
no_proxy => q[],
|
|
69
|
-
pager => q[C:\\Windows\\system32\\more.COM],
|
|
70
|
-
patch => q[C:\\strawberry\\c\\bin\\patch.exe],
|
|
71
|
-
perl5lib_verbosity => q[none],
|
|
72
|
-
prefer_external_tar => q[0],
|
|
73
|
-
prefer_installer => q[MB],
|
|
74
|
-
prefs_dir => q[C:\\strawberry\\cpan\\prefs],
|
|
75
|
-
prerequisites_policy => q[follow],
|
|
76
|
-
recommends_policy => q[1],
|
|
77
|
-
scan_cache => q[atstart],
|
|
78
|
-
shell => q[C:\\Windows\\system32\\cmd.exe],
|
|
79
|
-
show_unparsable_versions => q[0],
|
|
80
|
-
show_upload_date => q[1],
|
|
81
|
-
show_zero_versions => q[0],
|
|
82
|
-
suggests_policy => q[0],
|
|
83
|
-
tar => q[ ], #will use perl module if it is ' '
|
|
84
|
-
tar_verbosity => q[none],
|
|
85
|
-
term_is_latin => q[1],
|
|
86
|
-
term_ornaments => q[1],
|
|
87
|
-
test_report => q[0],
|
|
88
|
-
trust_test_report_history => q[0],
|
|
89
|
-
unzip => q[],
|
|
90
|
-
urllist => \@urllist,
|
|
91
|
-
use_prompt_default => q[0],
|
|
92
|
-
use_sqlite => q[1],
|
|
93
|
-
version_timeout => q[15],
|
|
94
|
-
wget => q[],
|
|
95
|
-
yaml_load_code => q[0],
|
|
96
|
-
yaml_module => q[YAML::XS],
|
|
1
|
+
|
|
2
|
+
# This is CPAN.pms systemwide configuration file. This file provides
|
|
3
|
+
# defaults for users, and the values can be changed in a per-user
|
|
4
|
+
# configuration file. The user-config file is being looked for as
|
|
5
|
+
# /.cpan/CPAN/MyConfig.pm.
|
|
6
|
+
|
|
7
|
+
my @urllist = (
|
|
8
|
+
'http://cpan.strawberryperl.com/',
|
|
9
|
+
'http://www.cpan.org/',
|
|
10
|
+
);
|
|
11
|
+
|
|
12
|
+
if ( -d 'C:\\strawberry\\minicpan' ) {
|
|
13
|
+
# If we are on fake Hotel/Airport wireless,
|
|
14
|
+
# prefer the minicpan to the poisoned wireless.
|
|
15
|
+
eval { require LWP::Online; };
|
|
16
|
+
unless ( $@ ) {
|
|
17
|
+
if ( LWP::Online::online() ) {
|
|
18
|
+
push @urllist, q[file:///C:/strawberry/minicpan/];
|
|
19
|
+
} else {
|
|
20
|
+
unshift @urllist, q[file:///C:/strawberry/minicpan/];
|
|
21
|
+
}
|
|
22
|
+
}
|
|
23
|
+
}
|
|
24
|
+
|
|
25
|
+
$CPAN::Config = {
|
|
26
|
+
applypatch => q[],
|
|
27
|
+
auto_commit => q[1],
|
|
28
|
+
build_cache => q[50],
|
|
29
|
+
build_dir => q[C:\\strawberry\\cpan\\build],
|
|
30
|
+
build_dir_reuse => q[0],
|
|
31
|
+
build_requires_install_policy => q[yes],
|
|
32
|
+
bzip2 => q[ ], #will use perl module if it is ' '
|
|
33
|
+
cache_metadata => q[1],
|
|
34
|
+
check_sigs => q[0],
|
|
35
|
+
colorize_print => q[bold green],
|
|
36
|
+
colorize_warn => q[bold red],
|
|
37
|
+
colorize_output => q[0],
|
|
38
|
+
commandnumber_in_prompt => q[0],
|
|
39
|
+
connect_to_internet_ok => q[1],
|
|
40
|
+
cpan_home => q[C:\\strawberry\\cpan],
|
|
41
|
+
curl => q[],
|
|
42
|
+
ftp => q[C:\\Windows\\system32\\ftp.exe],
|
|
43
|
+
ftp_passive => q[1],
|
|
44
|
+
ftp_proxy => q[],
|
|
45
|
+
getcwd => q[cwd],
|
|
46
|
+
gpg => q[],
|
|
47
|
+
gzip => q[ ], #will use perl module if it is ' '
|
|
48
|
+
halt_on_failure => q[1],
|
|
49
|
+
histfile => q[C:\\strawberry\\cpan\\histfile],
|
|
50
|
+
histsize => q[1000],
|
|
51
|
+
http_proxy => q[],
|
|
52
|
+
inactivity_timeout => q[0],
|
|
53
|
+
index_expire => q[1],
|
|
54
|
+
inhibit_startup_message => q[0],
|
|
55
|
+
keep_source_where => q[C:\\strawberry\\cpan\\sources],
|
|
56
|
+
load_module_verbosity => q[none],
|
|
57
|
+
lynx => q[],
|
|
58
|
+
make => q[C:\\strawberry\\c\\bin\\gmake.exe],
|
|
59
|
+
make_arg => q[],
|
|
60
|
+
make_install_arg => q[UNINST=1],
|
|
61
|
+
make_install_make_command => q[C:\\strawberry\\c\\bin\\gmake.exe],
|
|
62
|
+
makepl_arg => q[],
|
|
63
|
+
mbuild_arg => q[],
|
|
64
|
+
mbuild_install_arg => q[--uninst 1],
|
|
65
|
+
mbuildpl_arg => q[],
|
|
66
|
+
ncftp => q[],
|
|
67
|
+
ncftpget => q[],
|
|
68
|
+
no_proxy => q[],
|
|
69
|
+
pager => q[C:\\Windows\\system32\\more.COM],
|
|
70
|
+
patch => q[C:\\strawberry\\c\\bin\\patch.exe],
|
|
71
|
+
perl5lib_verbosity => q[none],
|
|
72
|
+
prefer_external_tar => q[0],
|
|
73
|
+
prefer_installer => q[MB],
|
|
74
|
+
prefs_dir => q[C:\\strawberry\\cpan\\prefs],
|
|
75
|
+
prerequisites_policy => q[follow],
|
|
76
|
+
recommends_policy => q[1],
|
|
77
|
+
scan_cache => q[atstart],
|
|
78
|
+
shell => q[C:\\Windows\\system32\\cmd.exe],
|
|
79
|
+
show_unparsable_versions => q[0],
|
|
80
|
+
show_upload_date => q[1],
|
|
81
|
+
show_zero_versions => q[0],
|
|
82
|
+
suggests_policy => q[0],
|
|
83
|
+
tar => q[ ], #will use perl module if it is ' '
|
|
84
|
+
tar_verbosity => q[none],
|
|
85
|
+
term_is_latin => q[1],
|
|
86
|
+
term_ornaments => q[1],
|
|
87
|
+
test_report => q[0],
|
|
88
|
+
trust_test_report_history => q[0],
|
|
89
|
+
unzip => q[],
|
|
90
|
+
urllist => \@urllist,
|
|
91
|
+
use_prompt_default => q[0],
|
|
92
|
+
use_sqlite => q[1],
|
|
93
|
+
version_timeout => q[15],
|
|
94
|
+
wget => q[],
|
|
95
|
+
yaml_load_code => q[0],
|
|
96
|
+
yaml_module => q[YAML::XS],
|
|
97
97
|
};
|
|
98
98
|
require Portable;
|
|
99
99
|
Portable->import('CPAN');
|
|
100
100
|
};
|
|
101
101
|
|
|
102
102
|
|
|
103
|
-
1;
|
|
104
|
-
__END__
|
|
103
|
+
1;
|
|
104
|
+
__END__
|
|
@@ -1,114 +1,114 @@
|
|
|
1
|
-
# This file was created by configpm when Perl was built. Any changes
|
|
2
|
-
# made to this file will be lost the next time perl is built.
|
|
3
|
-
|
|
4
|
-
# for a description of the variables, please have a look at the
|
|
5
|
-
# Glossary file, as written in the Porting folder, or use the url:
|
|
6
|
-
# https://github.com/Perl/perl5/blob/blead/Porting/Glossary
|
|
7
|
-
|
|
8
|
-
package Config;
|
|
9
|
-
use strict;
|
|
10
|
-
use warnings;
|
|
11
|
-
our ( %Config, $VERSION );
|
|
12
|
-
|
|
13
|
-
$VERSION = "5.032001";
|
|
14
|
-
|
|
15
|
-
# Skip @Config::EXPORT because it only contains %Config, which we special
|
|
16
|
-
# case below as it's not a function. @Config::EXPORT won't change in the
|
|
17
|
-
# lifetime of Perl 5.
|
|
18
|
-
my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1,
|
|
19
|
-
config_re => 1, compile_date => 1, local_patches => 1,
|
|
20
|
-
bincompat_options => 1, non_bincompat_options => 1,
|
|
21
|
-
header_files => 1);
|
|
22
|
-
|
|
23
|
-
@Config::EXPORT = qw(%Config);
|
|
24
|
-
@Config::EXPORT_OK = keys %Export_Cache;
|
|
25
|
-
|
|
26
|
-
# Need to stub all the functions to make code such as print Config::config_sh
|
|
27
|
-
# keep working
|
|
28
|
-
|
|
29
|
-
sub bincompat_options;
|
|
30
|
-
sub compile_date;
|
|
31
|
-
sub config_re;
|
|
32
|
-
sub config_sh;
|
|
33
|
-
sub config_vars;
|
|
34
|
-
sub header_files;
|
|
35
|
-
sub local_patches;
|
|
36
|
-
sub myconfig;
|
|
37
|
-
sub non_bincompat_options;
|
|
38
|
-
|
|
39
|
-
# Define our own import method to avoid pulling in the full Exporter:
|
|
40
|
-
sub import {
|
|
41
|
-
shift;
|
|
42
|
-
@_ = @Config::EXPORT unless @_;
|
|
43
|
-
|
|
44
|
-
my @funcs = grep $_ ne '%Config', @_;
|
|
45
|
-
my $export_Config = @funcs < @_ ? 1 : 0;
|
|
46
|
-
|
|
47
|
-
no strict 'refs';
|
|
48
|
-
my $callpkg = caller(0);
|
|
49
|
-
foreach my $func (@funcs) {
|
|
50
|
-
die qq{"$func" is not exported by the Config module\n}
|
|
51
|
-
unless $Export_Cache{$func};
|
|
52
|
-
*{$callpkg.'::'.$func} = \&{$func};
|
|
53
|
-
}
|
|
54
|
-
|
|
55
|
-
*{"$callpkg\::Config"} = \%Config if $export_Config;
|
|
56
|
-
return;
|
|
57
|
-
}
|
|
58
|
-
|
|
59
|
-
die "$0: Perl lib version (5.32.1) doesn't match executable '$^X' version ($])"
|
|
60
|
-
unless $^V;
|
|
61
|
-
|
|
62
|
-
$^V eq 5.32.1
|
|
63
|
-
or die sprintf "%s: Perl lib version (5.32.1) doesn't match executable '$^X' version (%vd)", $0, $^V;
|
|
64
|
-
|
|
65
|
-
|
|
66
|
-
sub FETCH {
|
|
67
|
-
my($self, $key) = @_;
|
|
68
|
-
|
|
69
|
-
# check for cached value (which may be undef so we use exists not defined)
|
|
70
|
-
return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
|
|
71
|
-
}
|
|
72
|
-
|
|
73
|
-
sub TIEHASH {
|
|
74
|
-
bless $_[1], $_[0];
|
|
75
|
-
}
|
|
76
|
-
|
|
77
|
-
sub DESTROY { }
|
|
78
|
-
|
|
79
|
-
sub AUTOLOAD {
|
|
80
|
-
require 'Config_heavy.pl';
|
|
81
|
-
goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
|
|
82
|
-
die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
|
|
83
|
-
}
|
|
84
|
-
|
|
85
|
-
# tie returns the object, so the value returned to require will be true.
|
|
86
|
-
tie %Config, 'Config', {
|
|
87
|
-
archlibexp => 'C:\\strawberry\\perl\\lib',
|
|
88
|
-
archname => 'MSWin32-x64-multi-thread',
|
|
89
|
-
cc => 'gcc',
|
|
90
|
-
d_readlink => undef,
|
|
91
|
-
d_symlink => undef,
|
|
92
|
-
dlext => 'xs.dll',
|
|
93
|
-
dlsrc => 'dl_win32.xs',
|
|
94
|
-
dont_use_nlink => undef,
|
|
95
|
-
exe_ext => '.exe',
|
|
96
|
-
inc_version_list => '',
|
|
97
|
-
intsize => '4',
|
|
98
|
-
ldlibpthname => '',
|
|
99
|
-
libpth => 'C:\\strawberry\\c\\lib C:\\strawberry\\c\\x86_64-w64-mingw32\\lib C:\\strawberry\\c\\lib\\gcc\\x86_64-w64-mingw32\\8.3.0',
|
|
100
|
-
osname => 'MSWin32',
|
|
101
|
-
osvers => '10.0.19042.746',
|
|
102
|
-
path_sep => ';',
|
|
103
|
-
privlibexp => 'C:\\strawberry\\perl\\lib',
|
|
104
|
-
scriptdir => 'C:\\strawberry\\perl\\bin',
|
|
105
|
-
sitearchexp => 'C:\\strawberry\\perl\\site\\lib',
|
|
106
|
-
sitelibexp => 'C:\\strawberry\\perl\\site\\lib',
|
|
107
|
-
so => 'dll',
|
|
108
|
-
useithreads => 'define',
|
|
109
|
-
usevendorprefix => 'define',
|
|
110
|
-
version => '5.32.1',
|
|
111
|
-
};
|
|
1
|
+
# This file was created by configpm when Perl was built. Any changes
|
|
2
|
+
# made to this file will be lost the next time perl is built.
|
|
3
|
+
|
|
4
|
+
# for a description of the variables, please have a look at the
|
|
5
|
+
# Glossary file, as written in the Porting folder, or use the url:
|
|
6
|
+
# https://github.com/Perl/perl5/blob/blead/Porting/Glossary
|
|
7
|
+
|
|
8
|
+
package Config;
|
|
9
|
+
use strict;
|
|
10
|
+
use warnings;
|
|
11
|
+
our ( %Config, $VERSION );
|
|
12
|
+
|
|
13
|
+
$VERSION = "5.032001";
|
|
14
|
+
|
|
15
|
+
# Skip @Config::EXPORT because it only contains %Config, which we special
|
|
16
|
+
# case below as it's not a function. @Config::EXPORT won't change in the
|
|
17
|
+
# lifetime of Perl 5.
|
|
18
|
+
my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1,
|
|
19
|
+
config_re => 1, compile_date => 1, local_patches => 1,
|
|
20
|
+
bincompat_options => 1, non_bincompat_options => 1,
|
|
21
|
+
header_files => 1);
|
|
22
|
+
|
|
23
|
+
@Config::EXPORT = qw(%Config);
|
|
24
|
+
@Config::EXPORT_OK = keys %Export_Cache;
|
|
25
|
+
|
|
26
|
+
# Need to stub all the functions to make code such as print Config::config_sh
|
|
27
|
+
# keep working
|
|
28
|
+
|
|
29
|
+
sub bincompat_options;
|
|
30
|
+
sub compile_date;
|
|
31
|
+
sub config_re;
|
|
32
|
+
sub config_sh;
|
|
33
|
+
sub config_vars;
|
|
34
|
+
sub header_files;
|
|
35
|
+
sub local_patches;
|
|
36
|
+
sub myconfig;
|
|
37
|
+
sub non_bincompat_options;
|
|
38
|
+
|
|
39
|
+
# Define our own import method to avoid pulling in the full Exporter:
|
|
40
|
+
sub import {
|
|
41
|
+
shift;
|
|
42
|
+
@_ = @Config::EXPORT unless @_;
|
|
43
|
+
|
|
44
|
+
my @funcs = grep $_ ne '%Config', @_;
|
|
45
|
+
my $export_Config = @funcs < @_ ? 1 : 0;
|
|
46
|
+
|
|
47
|
+
no strict 'refs';
|
|
48
|
+
my $callpkg = caller(0);
|
|
49
|
+
foreach my $func (@funcs) {
|
|
50
|
+
die qq{"$func" is not exported by the Config module\n}
|
|
51
|
+
unless $Export_Cache{$func};
|
|
52
|
+
*{$callpkg.'::'.$func} = \&{$func};
|
|
53
|
+
}
|
|
54
|
+
|
|
55
|
+
*{"$callpkg\::Config"} = \%Config if $export_Config;
|
|
56
|
+
return;
|
|
57
|
+
}
|
|
58
|
+
|
|
59
|
+
die "$0: Perl lib version (5.32.1) doesn't match executable '$^X' version ($])"
|
|
60
|
+
unless $^V;
|
|
61
|
+
|
|
62
|
+
$^V eq 5.32.1
|
|
63
|
+
or die sprintf "%s: Perl lib version (5.32.1) doesn't match executable '$^X' version (%vd)", $0, $^V;
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
sub FETCH {
|
|
67
|
+
my($self, $key) = @_;
|
|
68
|
+
|
|
69
|
+
# check for cached value (which may be undef so we use exists not defined)
|
|
70
|
+
return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
|
|
71
|
+
}
|
|
72
|
+
|
|
73
|
+
sub TIEHASH {
|
|
74
|
+
bless $_[1], $_[0];
|
|
75
|
+
}
|
|
76
|
+
|
|
77
|
+
sub DESTROY { }
|
|
78
|
+
|
|
79
|
+
sub AUTOLOAD {
|
|
80
|
+
require 'Config_heavy.pl';
|
|
81
|
+
goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
|
|
82
|
+
die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
|
|
83
|
+
}
|
|
84
|
+
|
|
85
|
+
# tie returns the object, so the value returned to require will be true.
|
|
86
|
+
tie %Config, 'Config', {
|
|
87
|
+
archlibexp => 'C:\\strawberry\\perl\\lib',
|
|
88
|
+
archname => 'MSWin32-x64-multi-thread',
|
|
89
|
+
cc => 'gcc',
|
|
90
|
+
d_readlink => undef,
|
|
91
|
+
d_symlink => undef,
|
|
92
|
+
dlext => 'xs.dll',
|
|
93
|
+
dlsrc => 'dl_win32.xs',
|
|
94
|
+
dont_use_nlink => undef,
|
|
95
|
+
exe_ext => '.exe',
|
|
96
|
+
inc_version_list => '',
|
|
97
|
+
intsize => '4',
|
|
98
|
+
ldlibpthname => '',
|
|
99
|
+
libpth => 'C:\\strawberry\\c\\lib C:\\strawberry\\c\\x86_64-w64-mingw32\\lib C:\\strawberry\\c\\lib\\gcc\\x86_64-w64-mingw32\\8.3.0',
|
|
100
|
+
osname => 'MSWin32',
|
|
101
|
+
osvers => '10.0.19042.746',
|
|
102
|
+
path_sep => ';',
|
|
103
|
+
privlibexp => 'C:\\strawberry\\perl\\lib',
|
|
104
|
+
scriptdir => 'C:\\strawberry\\perl\\bin',
|
|
105
|
+
sitearchexp => 'C:\\strawberry\\perl\\site\\lib',
|
|
106
|
+
sitelibexp => 'C:\\strawberry\\perl\\site\\lib',
|
|
107
|
+
so => 'dll',
|
|
108
|
+
useithreads => 'define',
|
|
109
|
+
usevendorprefix => 'define',
|
|
110
|
+
version => '5.32.1',
|
|
111
|
+
};
|
|
112
112
|
eval {
|
|
113
113
|
require Portable;
|
|
114
114
|
Portable->import('Config');
|
|
@@ -1,12 +1,12 @@
|
|
|
1
|
-
######################################################################
|
|
2
|
-
# WARNING: 'lib/Config_git.pl' is generated by make_patchnum.pl
|
|
3
|
-
# DO NOT EDIT DIRECTLY - edit make_patchnum.pl instead
|
|
4
|
-
######################################################################
|
|
5
|
-
$Config::Git_Data=<<'ENDOFGIT';
|
|
6
|
-
git_commit_id=''
|
|
7
|
-
git_describe=''
|
|
8
|
-
git_branch=''
|
|
9
|
-
git_uncommitted_changes=''
|
|
10
|
-
git_commit_id_title=''
|
|
11
|
-
|
|
12
|
-
ENDOFGIT
|
|
1
|
+
######################################################################
|
|
2
|
+
# WARNING: 'lib/Config_git.pl' is generated by make_patchnum.pl
|
|
3
|
+
# DO NOT EDIT DIRECTLY - edit make_patchnum.pl instead
|
|
4
|
+
######################################################################
|
|
5
|
+
$Config::Git_Data=<<'ENDOFGIT';
|
|
6
|
+
git_commit_id=''
|
|
7
|
+
git_describe=''
|
|
8
|
+
git_branch=''
|
|
9
|
+
git_uncommitted_changes=''
|
|
10
|
+
git_commit_id_title=''
|
|
11
|
+
|
|
12
|
+
ENDOFGIT
|