-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
2009-04-23 14:53:56 +00:00
parent 692a785328
commit 2d53a1e841
1 changed files with 1 additions and 1 deletions
--- 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;