Ug, return proper value.

518c4f93 · Leigh B. Stoller · 65e86635 · 518c4f93
Commit 518c4f93 authored Oct 08, 2006 by Leigh B. Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

tbsetup/libArchive.pm.in tbsetup/libArchive.pm.in +3 -1

No files found.
--- a/tbsetup/libArchive.pm.in
+++ b/tbsetup/libArchive.pm.in
@@ -88,9 +88,11 @@ sub mysystem($)

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

 # Another little helper for scripts that include this library.