Commit 8d30796a authored by Mac Newbold's avatar Mac Newbold
Browse files

Add a call to withadminprivs so that it can run export_tables.

parent 5b8a5f9f
...@@ -23,14 +23,15 @@ my $testbed_srcdir = "@top_srcdir@"; ...@@ -23,14 +23,15 @@ my $testbed_srcdir = "@top_srcdir@";
# Locals # Locals
my $master_fill = "$testbed_srcdir/sql/database-fill.sql"; my $master_fill = "$testbed_srcdir/sql/database-fill.sql";
my $export_tables = "../utils/export_tables"; my $export_tables = "../utils/export_tables";
my $wap = "$testbed_srcdir/utils/withadminprivs";
my $tempfile = "/tmp/dbdiff.$$"; my $tempfile = "/tmp/dbdiff.$$";
my $exitcode = 0; my $exitcode = 0;
# #
# Diff exits with 2 if a problem. We tell diff to ignore whitespace # Diff exits with 2 if a problem. We tell diff to ignore whitespace
# changes and comment lines (line starting with '--'). # changes and comment lines (line starting with '--').
# #
if (system("perl $export_tables | ". if (system("perl $wap perl $export_tables | ".
"diff -b -B -I '^--.*\$' $master_fill - > $tempfile") == 2) { "diff -b -B -I '^--.*\$' $master_fill - > $tempfile") == 2) {
unlink($tempfile); unlink($tempfile);
die("*** $0:\n". die("*** $0:\n".
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment