Change 13427 by jhi@alpha on 2001/12/02 17:07:57
Various small nits found by DJGPP build.
Affected files ...
.... //depot/perl/doio.c#179 edit
.... //depot/perl/mg.c#214 edit
.... //depot/perl/pp.c#317 edit
.... //depot/perl/util.c#302 edit
Differences ...
==== //depot/perl/doio.c#179 (text) ====
Index: perl/doio.c
--- perl/doio.c.~1~ Sun Dec 2 10:15:05 2001
+++ perl/doio.c Sun Dec 2 10:15:05 2001
@@ -691,11 +691,11 @@
sv_catpv(sv,PL_inplace);
}
#ifndef FLEXFILENAMES
- if (PerlLIO_stat(SvPVX(sv),&PL_statbuf) >= 0
- && PL_statbuf.st_dev == filedev
- && PL_statbuf.st_ino == fileino
+ if ((PerlLIO_stat(SvPVX(sv),&PL_statbuf) >= 0
+ && PL_statbuf.st_dev == filedev
+ && PL_statbuf.st_ino == fileino)
#ifdef DJGPP
- || (_djstat_fail_bits & _STFAIL_TRUENAME)!=0
+ || ((_djstat_fail_bits & _STFAIL_TRUENAME)!=0)
#endif
)
{
==== //depot/perl/mg.c#214 (text) ====
Index: perl/mg.c
--- perl/mg.c.~1~ Sun Dec 2 10:15:05 2001
+++ perl/mg.c Sun Dec 2 10:15:05 2001
@@ -869,7 +869,6 @@
register char *s;
char *ptr;
STRLEN len, klen;
- I32 i;
s = SvPV(sv,len);
ptr = MgPV(mg,klen);
@@ -922,6 +921,7 @@
while (s < strend) {
char tmpbuf[256];
struct stat st;
+ I32 i;
s = delimcpy(tmpbuf, tmpbuf + sizeof tmpbuf,
s, strend, ':', &i);
s++;
==== //depot/perl/pp.c#317 (text) ====
Index: perl/pp.c
--- perl/pp.c.~1~ Sun Dec 2 10:15:05 2001
+++ perl/pp.c Sun Dec 2 10:15:05 2001
@@ -3142,9 +3142,10 @@
PP(pp_crypt)
{
- dSP; dTARGET; dPOPTOPssrl;
+ dSP; dTARGET;
+#ifdef HAS_CRYPT
+ dPOPTOPssrl;
STRLEN n_a;
-#ifdef HAS_CRYPT
STRLEN len;
char *tmps = SvPV(left, len);
char *t = 0;
@@ -3161,11 +3162,11 @@
}
tmps = t;
}
-#ifdef FCRYPT
+# ifdef FCRYPT
sv_setpv(TARG, fcrypt(tmps, SvPV(right, n_a)));
-#else
+# else
sv_setpv(TARG, PerlProc_crypt(tmps, SvPV(right, n_a)));
-#endif
+# endif
Safefree(t);
#else
DIE(aTHX_
==== //depot/perl/util.c#302 (text) ====
Index: perl/util.c
--- perl/util.c.~1~ Sun Dec 2 10:15:05 2001
+++ perl/util.c Sun Dec 2 10:15:05 2001
@@ -2591,7 +2591,7 @@
char *xfailed = Nullch;
char tmpbuf[MAXPATHLEN];
register char *s;
- I32 len;
+ I32 len = 0;
int retval;
#if defined(DOSISH) && !defined(OS2) && !defined(atarist)
# define SEARCH_EXTS ".bat", ".cmd", NULL
End of Patch.
