From ce33e978f8ad5fec082f8a2e8addfaf11f55651e Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Mon, 2 Apr 2012 12:08:02 +0200
Subject: [PATCH] fix bug #135: allow single letter 'dns-name', allow to start
 name with numbers

---
 Makefile               | 2 +-
 data/PVE/JSONSchema.pm | 2 +-
 debian/changelog       | 7 +++++++
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 19b28b5..4fedd21 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,7 @@
 RELEASE=2.0
 
 VERSION=1.0
-PKGREL=23
+PKGREL=24
 
 PACKAGE=libpve-common-perl
 
diff --git a/data/PVE/JSONSchema.pm b/data/PVE/JSONSchema.pm
index 816083a..ac154cc 100644
--- a/data/PVE/JSONSchema.pm
+++ b/data/PVE/JSONSchema.pm
@@ -178,7 +178,7 @@ register_format('dns-name', \&pve_verify_dns_name);
 sub pve_verify_dns_name {
     my ($name, $noerr) = @_;
 
-    my $namere = "([a-zA-Z]|[a-zA-Z][a-zA-Z0-9\-]*[a-zA-Z0-9])";
+    my $namere = "([a-zA-Z0-9]([a-zA-Z0-9\-]*[a-zA-Z0-9])?)";
 
     if ($name !~ /^(${namere}\.)*${namere}$/) {
 	   return undef if $noerr;
diff --git a/debian/changelog b/debian/changelog
index 84d1f40..752f6b5 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+libpve-common-perl (1.0-24) unstable; urgency=low
+
+  * fix bug #135: allow single letter 'dns-name', allow to start names
+    with numbers
+
+ -- Proxmox Support Team <support@proxmox.com>  Mon, 02 Apr 2012 12:04:02 +0200
+
 libpve-common-perl (1.0-23) unstable; urgency=low
 
   * moved dir_glob_regex() and dir_glob_foreach() from PVE::Storage 
-- 
2.39.2