diff options
Diffstat (limited to 'iurt_root_command')
| -rwxr-xr-x | iurt_root_command | 3 |
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", |