Perl is not as much like C as I sometimes think it is.

054e42db · Leigh B. Stoller · aca4f452 · 054e42db
Commit 054e42db authored Jan 12, 2006 by Leigh B. Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

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

No files found.
--- a/tbsetup/libArchive.pm.in
+++ b/tbsetup/libArchive.pm.in
@@ -1093,7 +1093,7 @@ sub IsArchiveShared($$)
    return -1
 	if (!$query_result || !$query_result->numrows);
    
-    $$prval = ($query_result->numrows > 1)
+    $$prval = (($query_result->numrows > 1) ? 1 : 0)
 	if (defined($prval));
    
    return 0;