[Cluster-devel] cluster/fence/agents/scsi fence_scsi.pl

[rohara@sourceware.org <rohara@sourceware.org>]

CVSROOT:	/cvs/cluster
Module name:	cluster
Branch: 	RHEL4
Changes by:	rohara at sourceware.org	2006-11-29 23:19:04

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

Log message:
	Remove LIMIT param from calls to split. Seems that different versions of
	Perl behave differently when split uses this param, so removing this
	optional parameter makes things behanve consistently.

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

--- cluster/fence/agents/scsi/fence_scsi.pl	2006/11/29 20:14:42	1.5.6.1
+++ cluster/fence/agents/scsi/fence_scsi.pl	2006/11/29 23:19:04	1.5.6.2
@@ -93,7 +93,7 @@
 	chomp;
 	print "OUT: $_\n" if $opt_v;
 
-	my ($name, $value) = split(/\s*:\s*/, $_, 2);
+	my ($name, $value) = split(/\s*:\s*/, $_);
 
 	if ($name eq "Node name")
 	{
@@ -131,7 +131,7 @@
 
 	next unless $opt;
 
-	($name, $val) = split /\s*=\s*/, $opt;
+	($name, $val) = split(/\s*=\s*/, $opt);
 
 	if ($name eq "")
 	{
@@ -175,7 +175,7 @@
 	chomp;
 	print "OUT: $_\n" if $opt_v;
 
-	my ($vg_attrs, $device) = split /:/, $_, 2;
+	my ($vg_attrs, $device) = split(/:/, $_);
 
 	if ($vg_attrs =~ /.*c$/)
 	{