Fix ag-wipe so that it runs on IRIX (getopt reorders args in glibc).
authorfsgqa <fsgqa>
Thu, 5 Feb 2004 02:29:06 +0000 (02:29 +0000)
committerfsgqa <fsgqa>
Thu, 5 Feb 2004 02:29:06 +0000 (02:29 +0000)
tools/ag-wipe

index 0777778218a3c178ddc2935d22f104039b6626ff..9265ec4ee2c0604d0885a7c344ec5f81c565295f 100755 (executable)
@@ -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);