From mboxrd@z Thu Jan  1 00:00:00 1970
From: rohara@sourceware.org <rohara@sourceware.org>
Date: 8 Dec 2006 20:46:19 -0000
Subject: [Cluster-devel] cluster/fence/agents/scsi fence_scsi_test.pl
Message-ID: <20061208204619.8537.qmail@sourceware.org>
List-Id: <cluster-devel.redhat.com>
To: cluster-devel.redhat.com
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit

CVSROOT:	/cvs/cluster
Module name:	cluster
Branch: 	RHEL4
Changes by:	rohara at sourceware.org	2006-12-08 20:46:17

Modified files:
	fence/agents/scsi: fence_scsi_test.pl 

Log message:
	Fix incorrect variable name.

Patches:
http://sourceware.org/cgi-bin/cvsweb.cgi/cluster/fence/agents/scsi/fence_scsi_test.pl.diff?cvsroot=cluster&only_with_tag=RHEL4&r1=1.1.6.1&r2=1.1.6.2

--- cluster/fence/agents/scsi/fence_scsi_test.pl	2006/12/08 19:59:01	1.1.6.1
+++ cluster/fence/agents/scsi/fence_scsi_test.pl	2006/12/08 20:46:17	1.1.6.2
@@ -54,7 +54,7 @@
 
 sub unregister_device
 {
-    my $fun = (caller(0))[3];
+    my $func = (caller(0))[3];
     my ($dev, $key) = @_;
 
     print "DEBUG: $func ($dev, $key)\n" if ($opt_d);