From 2d53a1e841643f06a86a894b9a4a12a715e22613 Mon Sep 17 00:00:00 2001 From: jbjohnso Date: Thu, 23 Apr 2009 14:53:56 +0000 Subject: [PATCH] -Prefer rightmost number when using the + operator git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3248 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT/xCAT/NodeRange.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-xCAT/xCAT/NodeRange.pm b/perl-xCAT/xCAT/NodeRange.pm index d6bf2954f..baa8c46ed 100644 --- a/perl-xCAT/xCAT/NodeRange.pm +++ b/perl-xCAT/xCAT/NodeRange.pm @@ -100,7 +100,7 @@ sub expandatom { } if ($atom =~ m/\+/) { # process the + operator - $atom =~ m/^([^0-9]*)([0-9]+)([^\+]*)\+([0-9]+)/; + $atom =~ m/^(.*)([0-9]+)([^0-9\+]*)\+([0-9]+)/; my $pref=$1; my $startnum=$2; my $suf=$3;