libgis: strip also .py extension from program name

git-svn-id: https://svn.osgeo.org/grass/grass/trunk@62904 15284696-431f-4ddb-bdfa-cd5b030d7da7

lib/gis/progrm_nme.c

@@ -35,6 +35,8 @@ const char *G_program_name(void)
   Program name set to name (name will be returned by
   G_program_name*())
 
+  Extension like .exe or .py is stripped from program name.
+
   \param s program name
 */
 void G_set_program_name(const char *s)
@@ -53,6 +55,7 @@ void G_set_program_name(const char *s)
     /* strip extension from program name */
     temp = G_store(s);
     G_basename(temp, "exe");
+    G_basename(temp, "py");
     name = G_store(temp);
 
     G_debug(1, "G_set_program_name(): %s", name);