Add debug timestamps.

dedc71cf · Leigh B. Stoller · bb996961 · dedc71cf
Commit dedc71cf authored Oct 12, 2006 by Leigh B. Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

tbsetup/libArchive.pm.in tbsetup/libArchive.pm.in +5 -0

No files found.
--- a/tbsetup/libArchive.pm.in
+++ b/tbsetup/libArchive.pm.in
@@ -82,13 +82,18 @@ sub mysystem($)
 {
    my ($command) = @_;

+    TBDebugTimeStampsOn();    
+
    # Need a big TMPDIR for svn stuff.
    my $tmpdir = $ENV{'TMPDIR'};
    $ENV{'TMPDIR'} = "/usr/testbed/tmp";

    print STDERR "Running '$command'\n"
 	if ($debug);
+
+    TBDebugTimeStamp($command);
    my $retval = system($command);
+    TBDebugTimeStamp("Done");
    $ENV{'TMPDIR'} = $tmpdir
 	if (defined($tmpdir));