forked from perl/perl-PDL
29 lines
1.2 KiB
Diff
29 lines
1.2 KiB
Diff
--- Graphics/IIS/pdliisdisp.c
|
|
+++ Graphics/IIS/pdliisdisp.c
|
|
@@ -236,10 +236,10 @@
|
|
|
|
/* Else look in standard places */
|
|
|
|
- strncpy(iname,home,STRSIZE); strncat(iname,"/iraf/dev/imt1i",STRSIZE);
|
|
+ strncpy(iname,home,STRSIZE); strncat(iname,"/iraf/dev/imt1i",STRSIZE - strlen(iname) - 1);
|
|
if (!access(iname,F_OK))
|
|
goto gotin;
|
|
- strncpy(iname,home,STRSIZE); strncat(iname,"/dev/imt1i",STRSIZE);
|
|
+ strncpy(iname,home,STRSIZE); strncat(iname,"/dev/imt1i",STRSIZE - strlen(iname) - 1);
|
|
if (!access(iname,F_OK))
|
|
goto gotin;
|
|
strncpy(iname,"/dev/imt1i",STRSIZE);
|
|
@@ -266,10 +266,10 @@
|
|
}
|
|
/* Else look in standard places */
|
|
|
|
- strncpy(oname,home,STRSIZE); strncat(oname,"/iraf/dev/imt1o",STRSIZE);
|
|
+ strncpy(oname,home,STRSIZE); strncat(oname,"/iraf/dev/imt1o",STRSIZE - - strlen(oname) - 1);
|
|
if (!access(oname,F_OK))
|
|
goto gotout;
|
|
- strncpy(oname,home,STRSIZE); strncat(oname,"/dev/imt1o",STRSIZE);
|
|
+ strncpy(oname,home,STRSIZE); strncat(oname,"/dev/imt1o",STRSIZE - strlen(oname) - 1);
|
|
if (!access(oname,F_OK))
|
|
goto gotout;
|
|
strncpy(oname,"/dev/imt1o",STRSIZE);
|