overlay/061: remove from auto and quick groups

[xfstests-dev.git] / tools / ag-wipe

diff --git a/tools/ag-wipe b/tools/ag-wipe
index 0777778218a3c178ddc2935d22f104039b6626ff..52acf0f801279b3ef47b2e8e26142191f75e8e58 100755 (executable)
--- a/tools/ag-wipe
+++ b/tools/ag-wipe
@@ -1,40 +1,11 @@
 #!/usr/bin/perl -w
+# SPDX-License-Identifier: GPL-2.0
+# Copyright (c) 2003-2004 Silicon Graphics, Inc.  All Rights Reserved.
+#
 use strict;
 use IO::File;
 use Getopt::Std;
-
 #
-#  Copyright (c) 2003 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
-#  published by the Free Software Foundation.
-#  
-#  This program is distributed in the hope that it would be useful, but
-#  WITHOUT ANY WARRANTY; without even the implied warranty of
-#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-#  
-#  Further, this software is distributed without any warranty that it is
-#  free of the rightful claim of any third person regarding infringement
-#  or the like.  Any license provided herein, whether implied or
-#  otherwise, applies only to this software file.  Patent licenses, if
-#  any, provided herein do not apply to combinations of this program with
-#  other software, or any other product whatsoever.
-#  
-#  You should have received a copy of the GNU General Public License along
-#  with this program; if not, write the Free Software Foundation, Inc., 59
-#  Temple Place - Suite 330, Boston MA 02111-1307, USA.
-#  
-#  Contact information: Silicon Graphics, Inc., 1600 Amphitheatre Pkwy,
-#  Mountain View, CA  94043, or:
-#  
-#  http://www.sgi.com 
-#  
-#  For further information regarding this notice, see: 
-#  
-#  http://oss.sgi.com/projects/GenInfo/SGIGPLNoticeExplan/
-#
-
 #
 # Modify a filesystem's superblock and AGF metadata structures
 # so that only a subset of the allocation groups will be used.
@@ -69,15 +40,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);