apfs/apfstests
0
0
Fork 0
mirror of https://github.com/linux-apfs/apfstests.git synced 2026-05-01 15:01:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
fsgqa
2004-02-05 02:29:06 +00:00
parent c3ec644eb5
commit d35ba565f8
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/ag-wipe
+4 -4
View File
@@ -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);