#!/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.
}
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);