File _service:tar_scm:gdbm_dump-fix-command-line-err... of Package gdbm

File _service:tar_scm:gdbm_dump-fix-command-line-error-detection.patch of Package gdbm

From c96c160375bd1f3861651311e8645fb6478a1ffd Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org>
Date: Mon, 20 Jun 2022 11:50:46 +0300
Subject: [PATCH 09/14] gdbm_dump: fix command line error detection

This fixes https://puszcza.gnu.org.ua/bugs/?567
---
 tools/gdbm_dump.c | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/tools/gdbm_dump.c b/tools/gdbm_dump.c
index a480152..2f37eac 100644
--- a/tools/gdbm_dump.c
+++ b/tools/gdbm_dump.c
@@ -57,19 +57,31 @@ main (int argc, char **argv)
 	  format = GDBM_DUMP_FMT_ASCII;
 	else
 	  {
-	    format = atoi (optarg);
-	    switch (format)
+	    char *p;
+	    unsigned long n;
+
+	    errno = 0;
+	    n = strtoul (optarg, &p, 10);
+	    if (errno || *p != 0)
+	      {
+		error (_("unknown dump format"));
+		exit (EXIT_USAGE);
+	      }
+
+	    switch (n)
 	      {
 	      case GDBM_DUMP_FMT_BINARY:
 	      case GDBM_DUMP_FMT_ASCII:
+		format = n;
 		break;
+
 	      default:
 		error (_("unknown dump format"));
 		exit (EXIT_USAGE);
 	      }
 	  }
 	break;
-	
+
       default:
 	error (_("unknown option"));
 	exit (EXIT_USAGE);
@@ -90,7 +102,7 @@ main (int argc, char **argv)
       error (_("too many arguments; try `%s -h' for more info"), progname);
       exit (EXIT_USAGE);
     }
-  
+
   dbname = argv[0];
   if (argc == 2)
     filename = argv[1];
@@ -124,9 +136,8 @@ main (int argc, char **argv)
     {
       gdbm_perror (_("dump error"), filename);
     }
-  
+
   gdbm_close (dbf);
 
   exit (rc == GDBM_NO_ERROR ? EXIT_OK : EXIT_FATAL);
 }
-  
-- 
2.33.0