summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-09 02:45:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-09 02:45:40 +0000
commit29063091ad4cd16685bfabc8e48ade00329ec20b (patch)
tree09cc5b78e334c322d51a10de216121131af4b839 /perl-install
parentf9f67da951cddf7554ab10fafe11f71fbd1b66e9 (diff)
downloaddrakx-29063091ad4cd16685bfabc8e48ade00329ec20b.tar
drakx-29063091ad4cd16685bfabc8e48ade00329ec20b.tar.gz
drakx-29063091ad4cd16685bfabc8e48ade00329ec20b.tar.bz2
drakx-29063091ad4cd16685bfabc8e48ade00329ec20b.tar.xz
drakx-29063091ad4cd16685bfabc8e48ade00329ec20b.zip
rename $str into $real_name
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/run_program.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index c237d7214..6ab67f9ff 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -41,13 +41,13 @@ sub rooted {
sub raw {
my ($options, $name, @args) = @_;
my $root = $options->{root} || '';
- my $str = ref($name) ? $name->[0] : $name;
+ my $real_name = ref($name) ? $name->[0] : $name;
my ($stdout_raw, $stdout_mode, $stderr_raw, $stderr_mode);
($stdout_mode, $stdout_raw, @args) = @args if $args[0] =~ /^>>?$/;
($stderr_mode, $stderr_raw, @args) = @args if $args[0] =~ /^2>>?$/;
- log::l("running: $str @args" . ($root ? " with root $root" : ""));
+ log::l("running: $real_name @args" . ($root ? " with root $root" : ""));
return 1 if $root && $<;
@@ -79,7 +79,7 @@ sub raw {
alarm 0;
};
if ($@) {
- log::l("ERROR: killing runaway process (process=$str, pid=$pid, args=@args, error=$@)");
+ log::l("ERROR: killing runaway process (process=$real_name, pid=$pid, args=@args, error=$@)");
kill 9, $pid;
return;
}
@@ -126,7 +126,7 @@ sub raw {
exec $name, @args;
};
if (!$ok) {
- log::l("exec of $str failed: $!");
+ log::l("exec of $real_name failed: $!");
c::_exit(128);
}
}