allow patch names that start with a digit

Reference: /n/atom/patch/applied2013/createdigit
Date: Mon Jul  1 17:59:38 CES 2013
Signed-off-by: quanstro@quanstro.net

--- /rc/bin/apatch/create	Mon Jul  1 17:59:24 2013
+++ /rc/bin/apatch/create	Mon Jul  1 17:59:24 2013
@@ -27,7 +27,7 @@
 email=$2
 * = $*(3-)
 
-validate 'patch name' $patch '^[a-zA-Z][a-z_0-9.\-]+$'
+validate 'patch name' $patch '^[a-zA-Z0-9][a-z_0-9.\-]+$'
 validate email $email '^(-|[A-Za-z0-9.\-+]+@[A-Za-z0-9.\-+]+)$'
 
 mountfs