From c4dda13372efba1defd709265bde12519603965c Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Wed, 19 Mar 2014 13:07:26 +0000
Subject: [PATCH] Names can end in non-alphanumerics.

---
 Webperl/ConfigMicro.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Webperl/ConfigMicro.pm b/Webperl/ConfigMicro.pm
index b7c89a8..b70510f 100644
--- a/Webperl/ConfigMicro.pm
+++ b/Webperl/ConfigMicro.pm
@@ -139,16 +139,16 @@ sub read {
             $section = $1;
 
         # Attribues with quoted values. value can contain anything other than "
-		} elsif($line =~ /^\s*(.*?\w)\s*=\s*\"([^\"]+)\"/ ) {
+		} elsif($line =~ /^\s*(.*?)\s*=\s*\"([^\"]+)\"/ ) {
 			$self -> {$section} -> {$1} = $2;
 
         # Handle attributes without quoted values - # or ; at any point will mark comments
-		} elsif(!$self -> {"inline_comments"} && $line =~ /^\s*(.*?\w)\s*=\s*(.+)$/ ) {
+		} elsif(!$self -> {"inline_comments"} && $line =~ /^\s*(.*?)\s*=\s*(.+)$/ ) {
             my $key = $1;
 			$self -> {$section} -> {$key} = $2;
             $self -> {$section} -> {$key} =~ s/^\s*(.*?)\s*$/$1/;
 
-		} elsif($self -> {"inline_comments"} && $line =~ /^\s*(.*?\w)\s*=\s*([^;#]+)/ ) {
+		} elsif($self -> {"inline_comments"} && $line =~ /^\s*(.*?)\s*=\s*([^;#]+)/ ) {
             my $key = $1;
 			$self -> {$section} -> {$key} = $2;
             $self -> {$section} -> {$key} =~ s/^\s*(.*?)\s*$/$1/;