- if (fwrite (mmdlm1, 1, strlen (mmdlm1), pf) < strlen (mmdlm1)) {
+ len = strlen(mmdlm1);
+ if (fwrite(mmdlm1, 1, len, pf) < len)
adios (packfile, "write error on");
fseek (pf, start, SEEK_SET);
} else {
adios (packfile, "write error on");
fseek (pf, start, SEEK_SET);
} else {
if ((pf = fopen (cp, "w+")) == NULL)
adios (cp, "unable to write");
chmod (cp, m_gmprot ());
if ((pf = fopen (cp, "w+")) == NULL)
adios (cp, "unable to write");
chmod (cp, m_gmprot ());
- if (fwrite (mmdlm2, 1, strlen (mmdlm2), pf) < strlen (mmdlm1)) {
+ len = strlen(mmdlm2);
+ if (fwrite(mmdlm2, 1, len, pf) < len)