From 3fb82b837ec0b467c18cc0d6ba7bebafee35af41 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Wed, 31 Mar 2010 17:25:08 +0200
Subject: Allow . in a key name as well

---
 lib/Simplestore.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Simplestore.pm b/lib/Simplestore.pm
index 42d5569..e9624dd 100644
--- a/lib/Simplestore.pm
+++ b/lib/Simplestore.pm
@@ -40,8 +40,8 @@ sub save {
 
 	open(my $handle, '>', $file) or confess("Cannot open $file for writing: $!");
 	foreach my $key (keys(%{$store})) {
-		if ($key !~ / ^ \w+ $ /x) {
-			confess("Invalid key name: May only contain alphanumeric and _");
+		if ($key !~ / ^ [\w.]+ $ /x) {
+			confess("Invalid key name: $key: May only contain [\\w.]");
 		}
 		foreach (split(/\n/, $store->{$key})) {
 			print $handle "$key\t$_\n";
-- 
cgit v1.2.3