From a729f66489d03826465b4b10fbb710e0239844f5 Mon Sep 17 00:00:00 2001 From: Michal Sojka Date: Tue, 3 May 2016 09:51:54 +0200 Subject: [PATCH] Print effective command line option (after target expansion) --- novaboot | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/novaboot b/novaboot index f2568e2..27bc666 100755 --- a/novaboot +++ b/novaboot @@ -235,6 +235,11 @@ my %opt_spec; push(@target_expanded, @$remaining_args); $t = $explicit_target; } + + (undef, my @args) = @ARGV; + @args = (@target_expanded, @args); + print STDERR "novaboot: Effective options: @args\n"; + Getopt::Long::Configure(qw/no_ignore_case no_pass_through/); GetOptionsFromArray(\@target_expanded, %opt_spec) or die ("Error in target definition"); } -- 2.39.2