From 601b067e2fc82a45dbe981977569d0f330a15d5b Mon Sep 17 00:00:00 2001
From: zacheiss <zacheiss>
Date: Thu, 5 Apr 2007 17:47:09 +0000
Subject: [PATCH] No old scary perl interpreter.

Skip first line of fs lv output.
---
 incremental/afs/afs_quota.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/incremental/afs/afs_quota.pl b/incremental/afs/afs_quota.pl
index f9f72718..16aa97e2 100644
--- a/incremental/afs/afs_quota.pl
+++ b/incremental/afs/afs_quota.pl
@@ -1,4 +1,4 @@
-#!/afs/athena/contrib/perl/perl
+#!/usr/athena/bin/perl
 # Usage: afs_quota path quota
 
 require "/moira/bin/afs_utils.pl";
@@ -15,10 +15,12 @@ chop(@fs=<PROG>);
 close(PROG);
 die "Unable to get information about $path\n" if ($?);
 
+shift(@fs);
 @tmp = split(/\s+/, shift(@fs));
 $vname = pop(@tmp);
 @tmp = split(/\s+/, shift(@fs));
 $oldq = pop(@tmp);
+print "$vname $oldq $newq\n";
 
 open(PROG,"$fs whichcell $path|");
 chop($_=<PROG>);
-- 
2.45.2