No change for existing callers.

Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
 sg-report-host-history | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/sg-report-host-history b/sg-report-host-history
index 42def6bf..c9f4aaa6 100755
--- a/sg-report-host-history
+++ b/sg-report-host-history
@@ -31,6 +31,7 @@ use Osstest::Executive qw(:DEFAULT :colours);
 our $limit= 200;
 our $flightlimit;
 our $htmlout = ".";
+our $doinstall=1;
 our @blessings;
 
 open DEBUG, ">/dev/null";
@@ -51,6 +52,8 @@ while (@ARGV && $ARGV[0] =~ m/^-/) {
         push @blessings, split ',', $1;
     } elsif (m/^--html-dir=(.*)$/) {
         $htmlout= $1;
+    } elsif (m/^--no-install$/) {
+        $doinstall= 0;
     } elsif (m/^--debug/) {
         open DEBUG, ">&2" or die $!;
         DEBUG->autoflush(1);
@@ -322,7 +325,8 @@ END
     print H "</table></body></html>\n";
 
     close H or die $!;
-    rename "$html_file.new", "$html_file" or die "$html_file $!";
+    rename "$html_file.new", "$html_file" or die "$html_file $!"
+        if $doinstall;
 }
 
 db_retry($dbh_tests, [], sub {
-- 
2.11.0


_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xenproject.org
https://lists.xenproject.org/mailman/listinfo/xen-devel

Reply via email to