+static bool
+stricttol(const char *p, unsigned long *l, char **q)
+{
+ if ((isdigit((int)(p[0])) == 0) || (p[0] == '0'))
+ return false;
+ errno = 0;
+ *l = strtoul(p, q, 10);
+ if (errno != 0) {
+ perror("strtoul()");
+ return false;
+ }
+ return true;
+}
+