pathname = SvPV_nolen(ST(0));
- if (!strcmp(pathname, "/cygdrive")) {
+ if (strEQ(pathname, "/cygdrive")) {
char user[PATH_MAX];
char system[PATH_MAX];
char user_flags[PATH_MAX];
int found = 0;
setmntent (0, 0);
while ((mnt = getmntent (0))) {
- if (!strcmp(pathname, mnt->mnt_dir)) {
+ if (strEQ(pathname, mnt->mnt_dir)) {
strcpy(flags, mnt->mnt_type);
if (strlen(mnt->mnt_opts) > 0) {
strcat(flags, ",");
user_flags, system_flags);
if (strlen(user) > 0) {
- if (strcmp(user,pathname)) {
+ if (strNE(user,pathname)) {
sprintf(flags, "%s,cygdrive,%s", user_flags, user);
found++;
}
} else {
- if (strcmp(user,pathname)) {
+ if (strNE(user,pathname)) {
sprintf(flags, "%s,cygdrive,%s", system_flags, system);
found++;
}
cop = &PL_compiling;
Perl_cop_store_label(aTHX_ cop, "foo", 3, 0);
label = Perl_cop_fetch_label(aTHX_ cop, &len, &utf8);
- if (strcmp(label,"foo")) croak("fail # cop_fetch_label label");
+ if (strNE(label,"foo")) croak("fail # cop_fetch_label label");
if (len != 3) croak("fail # cop_fetch_label len");
if (utf8) croak("fail # cop_fetch_label utf8");
/* SMALL GERMAN UMLAUT A */
Perl_cop_store_label(aTHX_ cop, "fo\xc3\xa4", 4, SVf_UTF8);
label = Perl_cop_fetch_label(aTHX_ cop, &len, &utf8);
- if (strcmp(label,"fo\xc3\xa4")) croak("fail # cop_fetch_label label");
+ if (strNE(label,"fo\xc3\xa4")) croak("fail # cop_fetch_label label");
if (len != 4) croak("fail # cop_fetch_label len");
if (!utf8) croak("fail # cop_fetch_label utf8");
#define iv_op(iv) newSVOP(OP_CONST, 0, newSViv(iv))
#define check_op(o, expect) \
do { \
- if (strcmp(test_op_list_describe(o), (expect))) \
+ if (strNE(test_op_list_describe(o), (expect))) \
croak("fail %s %s", test_op_list_describe(o), (expect)); \
} while(0)
a = op_append_elem(OP_LIST, NULL, NULL);
/* If the user wants UNIX files, "." needs to be treated as in UNIX */
if (decc_filename_unix_report || decc_filename_unix_only) {
- if (strcmp(path,".") == 0)
+ if (strEQ(path,".")
ret_val = 1;
}
}
{
if (*((int *)lnm) == *((int *)"SYS$") &&
eqvlen >= 4 && eqv[0] == 0x1b && eqv[1] == 0x00 &&
- ( (lnm[4] == 'O' && !strcmp(lnm,"SYS$OUTPUT")) ||
- (lnm[4] == 'I' && !strcmp(lnm,"SYS$INPUT")) ||
- (lnm[4] == 'E' && !strcmp(lnm,"SYS$ERROR")) ||
- (lnm[4] == 'C' && !strcmp(lnm,"SYS$COMMAND")) ) ) {
+ ( (lnm[4] == 'O' && strEQ(lnm,"SYS$OUTPUT")) ||
+ (lnm[4] == 'I' && strEQ(lnm,"SYS$INPUT")) ||
+ (lnm[4] == 'E' && strEQ(lnm,"SYS$ERROR")) ||
+ (lnm[4] == 'C' && strEQ(lnm,"SYS$COMMAND")) ) ) {
memmove(eqv, eqv+4, eqvlen-4);
eqvlen -= 4;
char uplnm[8];
int i;
for (i = 0; lnm[i]; i++) uplnm[i] = toUPPER_A(lnm[i]);
- if (!strcmp(uplnm,"DEFAULT")) {
+ if (strEQ(uplnm,"DEFAULT")) {
if (eqv && *eqv) my_chdir(eqv);
return;
}
if (SvROK(dirsv)) continue;
dir = SvPVx(dirsv,n_a);
- if (strcmp(dir,".") == 0) continue;
+ if (strEQ(dir,".")) continue;
if ((tounixpath_utf8(dir, unixdir, NULL)) == NULL)
continue;
* ... do_fileify_dirspec("myroot",buf,1) ...
* does something useful.
*/
- if (dirlen >= 2 && !strcmp(trndir+dirlen-2,".]")) {
+ if (dirlen >= 2 && strEQ(trndir+dirlen-2,".]")) {
trndir[--dirlen] = '\0';
trndir[dirlen-1] = ']';
}
- if (dirlen >= 2 && !strcmp(trndir+dirlen-2,".>")) {
+ if (dirlen >= 2 && strEQ(trndir+dirlen-2,".>")) {
trndir[--dirlen] = '\0';
trndir[dirlen-1] = '>';
}
} while ((cp1 = strstr(cp1,"/.")) != NULL);
lastdir = strrchr(trndir,'/');
}
- else if (dirlen >= 7 && !strcmp(&trndir[dirlen-7],"/000000")) {
+ else if (dirlen >= 7 && strEQ(&trndir[dirlen-7],"/000000")) {
char * ret_chr;
/* Ditto for specs that end in an MFD -- let the VMS code
* figure out whether it's a real device or a rooted logical. */
trnlen = strlen(trndir);
/* Trap simple rooted lnms, and return lnm:[000000] */
- if (!strcmp(trndir+trnlen-2,".]")) {
+ if (strEQ(trndir+trnlen-2,".]")) {
my_strlcpy(buf, dir, VMS_MAXRSS);
strcat(buf, ":[000000]");
PerlMem_free(trndir);
&vs_len);
while (sts == 0) {
- int cmp;
/* A logical name must be a directory or the full
specification. It is only a full specification if
/* This should not be there, but nothing is perfect */
if (r_len > 9) {
- cmp = strcmp(&r_spec[1], "000000.");
- if (cmp == 0) {
+ if (strEQ(&r_spec[1], "000000.")) {
r_spec += 7;
r_spec[7] = '[';
r_len -= 7;
d_spec[0] = '[';
d_spec[d_len - 1] = ']';
if (d_len > 9) {
- cmp = strcmp(&d_spec[1], "000000.");
- if (cmp == 0) {
+ if (strEQ(&d_spec[1], "000000.")) {
d_spec += 7;
d_spec[7] = '[';
d_len -= 7;
dir_start = 1;
dir_dot = 1;
if (vmslen > 7) {
- int cmp;
rptr = vmsptr - 7;
- cmp = strcmp(rptr,"000000.");
- if (cmp == 0) {
+ if (strEQ(rptr,"000000.")) {
vmslen -= 7;
vmsptr -= 7;
vmsptr[1] = '\0';
/* DECC special handling */
if (!islnm) {
- if (strcmp(rslt,"bin") == 0) {
+ if (strEQ(rslt,"bin")) {
strcpy(rslt,"sys$system");
cp1 = rslt + 10;
*cp1 = 0;
islnm = simple_trnlnm(rslt,trndev,VMS_MAXRSS-1);
}
- else if (strcmp(rslt,"tmp") == 0) {
+ else if (strEQ(rslt,"tmp")) {
strcpy(rslt,"sys$scratch");
cp1 = rslt + 11;
*cp1 = 0;
while (*(cp2+1) == '/') cp2++; /* Skip multiple /s */
islnm = simple_trnlnm(rslt,trndev,VMS_MAXRSS-1);
}
- else if (strcmp(rslt,"dev") == 0) {
+ else if (strEQ(rslt,"dev")) {
if (strncmp(cp2,"/null", 5) == 0) {
if ((cp2[5] == 0) || (cp2[5] == '/')) {
strcpy(rslt,"NLA0");
* subprocess, so we satisfy that desire.
*/
ap = argv[argc-1];
- if (0 == strcmp("&", ap))
+ if (strEQ(ap, "&"))
exit(background_process(aTHX_ --argc, argv));
if (*ap && '&' == ap[strlen(ap)-1])
{
*/
for (j = 0; j < argc; ++j)
{
- if (0 == strcmp("<", argv[j]))
+ if (strEQ(argv[j], "<"))
{
if (j+1 >= argc)
{
in = 1 + ap;
continue;
}
- if (0 == strcmp(">", ap))
+ if (strEQ(ap, ">"))
{
if (j+1 >= argc)
{
}
continue;
}
- if (0 == strcmp("|", argv[j]))
+ if (strEQ(argv[j], "|"))
{
if (j+1 >= argc)
{
if (out != NULL) vmssetuserlnm("SYS$OUTPUT", out);
if (err != NULL) {
- if (strcmp(err,"&1") == 0) {
+ if (strEQ(err, "&1")) {
dup2(fileno(stdout), fileno(stderr));
vmssetuserlnm("SYS$ERROR", "SYS$OUTPUT");
} else {