From: fsgqa <fsgqa>
Date: Thu, 5 Feb 2004 02:29:06 +0000 (+0000)
Subject: Fix ag-wipe so that it runs on IRIX (getopt reorders args in glibc).
X-Git-Tag: v1.1.0~878
X-Git-Url: https://www.infradead.org/git/?a=commitdiff_plain;h=d35ba565f89fbe9d8ef45ca53b98548e026cd796;p=users%2Fhch%2Fxfstests-dev.git

Fix ag-wipe so that it runs on IRIX (getopt reorders args in glibc).
---

diff --git a/tools/ag-wipe b/tools/ag-wipe
index 077777821..9265ec4ee 100755
--- a/tools/ag-wipe
+++ b/tools/ag-wipe
@@ -4,7 +4,7 @@ use IO::File;
 use Getopt::Std;
 
 #
-#  Copyright (c) 2003 Silicon Graphics, Inc.  All Rights Reserved.
+#  Copyright (c) 2003-2004 Silicon Graphics, Inc.  All Rights Reserved.
 #  
 #  This program is free software; you can redistribute it and/or modify it
 #  under the terms of version 2 of the GNU General Public License as
@@ -69,15 +69,15 @@ if ($retain >= 0) {
 }
 
 sub xfs_db {
-	my $xfsdb = "xfs_db -x $device";
+	my $xfsdb = 'xfs_db -x';
 	my %hash;
 
 	foreach (@_) {
 		$xfsdb .= ' -c ' . $_;
 	}
-	print $xfsdb, "\n" if ($verbose);
+	print $xfsdb, ' ', $device, "\n" if ($verbose);
 
-	die unless open(DB, "$xfsdb 2>/dev/null |");
+	die unless open(DB, "$xfsdb $device 2>/dev/null |");
 	while (<DB>) {
 		if (/^(\S+) = (.*)$/) {
 			print if ($verbose);