sub _parseChar { my( $parser,$string ) = @_; if( $state_stack[-1] =~ /dataType|label|op|sep/ ) { $value .= $string; } else { csWarn( class=>csErrorClass('CODE_PARAMS'),severity=>csErrorScale('MODERATE'), message => 'illegal syntax in Resource File', debug => "illegal syntax: bare string '$string' out of context") and return undef unless $string =~ /\s+/; <=== here } }