summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/MMutil.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/MMutil.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/MMutil.pm14
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;
}
}
}