From d35ba565f89fbe9d8ef45ca53b98548e026cd796 Mon Sep 17 00:00:00 2001 From: fsgqa Date: Thu, 5 Feb 2004 02:29:06 +0000 Subject: [PATCH] Fix ag-wipe so that it runs on IRIX (getopt reorders args in glibc). --- tools/ag-wipe | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tools/ag-wipe b/tools/ag-wipe index 07777782..9265ec4e 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 () { if (/^(\S+) = (.*)$/) { print if ($verbose); -- 2.47.3