diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/MMutil.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/MMutil.pm | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/MMutil.pm b/Master/tlpkg/tlperl/lib/Tk/MMutil.pm index 7a78c1b7ebe..df5e9a26644 100644 --- a/Master/tlpkg/tlperl/lib/Tk/MMutil.pm +++ b/Master/tlpkg/tlperl/lib/Tk/MMutil.pm @@ -9,7 +9,7 @@ use Carp; use File::Basename; use vars qw($VERSION); -$VERSION = '4.025'; +$VERSION = '4.026'; # warn __FILE__." $VERSION\n"; @@ -115,19 +115,15 @@ sub mTk_CHO $self->{O_FILES} = [grep s/\.c(pp|xx|c)?$/$self->{OBJ_EXT}/i, @o_files] ; $self->{'MTK'} = $mTk; my $tk = installed_tk(); - my $perl = $self->{'PERL'}; - if ($IsWin32 && !-f $perl && -f "$perl.exe") - { - print "perl=$perl X=$^X\n"; - $perl = "$perl.exe"; - $self->{'PERL'} = $perl; - } + my $perl = $^X; foreach my $file (sort keys %$mTk) { unless (-f $file && -M $file < -M $mTk->{$file}) { warn "Extracting $file\n"; - system($perl,"$tk/pTk/Tcl-pTk",$mTk->{$file},$file); + my @cmd = ($perl,"$tk/pTk/Tcl-pTk",$mTk->{$file},$file); + system @cmd; + die "The command '@cmd' failed with $?" if $? != 0; } } } |