From d37709a9225b158318f055c7b1221d2cc45bd632 Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Sat, 8 Mar 2014 15:34:42 -0500
Subject: [PATCH] test driver: Update VCDs when given HARNESS_UPDATE_GOLDEN

---
 test_regress/driver.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test_regress/driver.pl b/test_regress/driver.pl
index fd7fe539e..786f997b3 100755
--- a/test_regress/driver.pl
+++ b/test_regress/driver.pl
@@ -1416,6 +1416,11 @@ sub vcd_identical {
 	if ($out ne '') {
 	    print $out;
 	    $self->error("VCD miscompare $fn1 $fn2\n");
+	    if ($ENV{HARNESS_UPDATE_GOLDEN}) {  # Update golden files with current
+		warn "%Warning: HARNESS_UPDATE_GOLDEN set: cp $fn1 $fn2\n";
+		eval "use File::Copy;";
+		File::Copy::copy($fn1,$fn2);
+	    }
 	    return 0;
 	}
     }