From 6833ec97ad02d6725683766ba81c2f5607165b14 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 1 Aug 2007 14:45:12 +0000 Subject: get rid of quotes around options, since they really always want a string (or nothing) nb: may break around things though --- lib/Xconfig/parse.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Xconfig/parse.pm') diff --git a/lib/Xconfig/parse.pm b/lib/Xconfig/parse.pm index e7e97f4..619c059 100644 --- a/lib/Xconfig/parse.pm +++ b/lib/Xconfig/parse.pm @@ -164,7 +164,7 @@ sub _from_rraw { _from_rraw($e); push @{$current->{l}{$e->{name}}}, $e; } else { - if (member(lc $e->{name}, @want_string)) { + if (member(lc $e->{name}, @want_string) || $e->{Option} && $e->{val}) { $e->{val} =~ s/^"(.*)"$/$1/ or warn "$e->{name} $e->{val} has no quote\n"; } -- cgit v1.2.1