aboutsummaryrefslogtreecommitdiffstats
path: root/iurt_root_command
diff options
context:
space:
mode:
Diffstat (limited to 'iurt_root_command')
-rwxr-xr-xiurt_root_command3
1 files changed, 2 insertions, 1 deletions
diff --git a/iurt_root_command b/iurt_root_command
index 70dd08e..89edeeb 100755
--- a/iurt_root_command
+++ b/iurt_root_command
@@ -29,6 +29,7 @@ use Iurt::Util qw(plog_init plog);
use Cwd 'realpath';
use File::Path qw(make_path);
use File::Slurp;
+use String::Escape;
my $arg = @ARGV;
my (@params, %run);
@@ -47,7 +48,7 @@ $run{todo} = [];
[--modprobe <module>]
[--mkdir [--parents] <dir1> <dir2> ... <dirn>]",
"$program_name is a perl script to execute commands which need root privilege, it helps probram which needs occasional root privileges for some commands.",
- sub { $arg or usage($program_name, \@params) }, "Running $program_name" ],
+ sub { $arg or usage($program_name, \@params) }, String::Escape::elide(join(' ', "Running $program_name", @ARGV), 120) ],
[ "", "cp", [
["", "cp", -1, "[-r] <file1> <file2> ... <filen> <dest>", "copy the files to dest",