Print effective command line option (after target expansion)

diff --git a/novaboot b/novaboot
index f2568e279b34ae73ed3e4ae2dc6ada0b6d922bc4..27bc6664bd78f4628851bdcafe5c32ef6fd2ba31 100755 (executable)
--- 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");
 }