From aa45477ea6c0a7bb2a2d5166563346b911cd4b18 Mon Sep 17 00:00:00 2001
From: brian <brian>
Date: Fri, 16 Jun 2006 17:29:16 +0000
Subject: [PATCH] Quiet perl down a bit.

---
 lustre/scripts/lmc2csv.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lustre/scripts/lmc2csv.pl b/lustre/scripts/lmc2csv.pl
index 60a549b..ff770ec 100644
--- a/lustre/scripts/lmc2csv.pl
+++ b/lustre/scripts/lmc2csv.pl
@@ -136,10 +136,9 @@ sub lnet_options {
 my %objs;
 my @mgses;
 
-if (defined($ENV{"MOUNTPT"}) {
+my $MOUNTPT = "/mnt";
+if (defined($ENV{"MOUNTPT"})) {
     $MOUNTPT = $ENV{"MOUNTPT"};
-} else {
-    $MOUNTPT = "/mnt";
 }
 
 while(<>) {
-- 
1.8.3.1