Imported Upstream version 2.17

[debian/cpmtools] / cpmchmod.c

diff --git a/cpmchmod.c b/cpmchmod.c
index 701d3b384605ca309d80ce6632710ad74c59db76..76b70a96011257fda2a518be45d0b0da7ad8d719 100644 (file)
--- a/cpmchmod.c
+++ b/cpmchmod.c
@@ -22,7 +22,7 @@ int main(int argc, char *argv[]) /*{{{*/
   /* variables */ /*{{{*/
   const char *err;
   const char *image;
-  const char *format=FORMAT;
+  const char *format;
   const char *devopts=NULL;
   int c,i,usage=0,exitcode=0;
   struct cpmSuperBlock drive;
@@ -33,6 +33,7 @@ int main(int argc, char *argv[]) /*{{{*/
   /*}}}*/
 
   /* parse options */ /*{{{*/
+  if (!(format=getenv("CPMTOOLSFMT"))) format=FORMAT;
   while ((c=getopt(argc,argv,"T:f:h?"))!=EOF) switch(c)
   {
     case 'T': devopts=optarg; break;