build.pl: Log build command

Signed-off-by: Vladimir Sokolovsky <vlad@mellanox.com>

diff --git a/build.pl b/build.pl
index de5b528fd21cc87382c05b19380ae33fc774b59a..46633cf5e0e61a4739188257ecdd511032302881 100755 (executable)
--- a/build.pl
+++ b/build.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# Copyright (c) 2010 Mellanox Technologies. All rights reserved.
+# Copyright (c) 2012 Mellanox Technologies. All rights reserved.
 #
 # This Software is licensed under one of the following licenses:
 #
@@ -527,6 +527,7 @@ sub get_srpm
 
 ### MAIN ###
 
+my $command = "$0 @ARGV";
 while ( $#ARGV >= 0 ) {
 
        my $cmd_flag = shift(@ARGV);
@@ -587,6 +588,7 @@ if ($build_release) {
 $log = "$CWD/$distribution.build.log";
 rmtree $log;
 open (LOG, ">$log") or die "Can't open $log: $!\n";
+print LOG "Running: $command\n";
 
 chdir $CWD;
 if (not $skip_prebuild and -f "$prebuild") {