From c58e662df002ad6107d088a3b048653e8df2174d Mon Sep 17 00:00:00 2001 From: jbjohnso Date: Wed, 16 Apr 2008 19:49:53 +0000 Subject: [PATCH] Allow single quotes in previously committed feature git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1105 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT-2.0/xCAT/Table.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-xCAT-2.0/xCAT/Table.pm b/perl-xCAT-2.0/xCAT/Table.pm index 4d51e040f..fd44219db 100644 --- a/perl-xCAT-2.0/xCAT/Table.pm +++ b/perl-xCAT-2.0/xCAT/Table.pm @@ -944,7 +944,7 @@ sub getNodeAttribs { #my $next = $comps[0]; - if ($curr =~ /^[\{\}()\-\+\/\%\*\$\d]+$/ or $curr =~ /^\(sprintf\(["%\dcsduoxefg]+,\s*[\{\}()\-\+\/\%\*\$\d]+\)\)$/ ) + if ($curr =~ /^[\{\}()\-\+\/\%\*\$\d]+$/ or $curr =~ /^\(sprintf\(["'%\dcsduoxefg]+,\s*[\{\}()\-\+\/\%\*\$\d]+\)\)$/ ) { use integer ; #We only allow integer operations, they are the ones that make sense for the application