#!/usr/bin/perl -w
-#
-# Copyright (c) 2000-2001 Silicon Graphics, Inc. All Rights Reserved.
+# SPDX-License-Identifier: GPL-2.0
+# Copyright (c) 2000-2001 Silicon Graphics, Inc. All Rights Reserved.
#
# use db to try to traverse the entire filesystem starting at the root
#
-# dxm 5/10/00
-
my $device;
my $rootino;
my $agcount;