changed "source" routine to expand() the name first.
authorKurt A. Shoens <kurt@ucbvax.Berkeley.EDU>
Thu, 2 Jul 1981 01:59:58 +0000 (17:59 -0800)
committerKurt A. Shoens <kurt@ucbvax.Berkeley.EDU>
Thu, 2 Jul 1981 01:59:58 +0000 (17:59 -0800)
SCCS-vsn: usr.bin/mail/aux.c 1.7

usr/src/usr.bin/mail/aux.c

index 1894134..bf19be8 100644 (file)
@@ -11,7 +11,7 @@
  * Auxiliary functions.
  */
 
  * Auxiliary functions.
  */
 
-static char *SccsId = "@(#)aux.c       1.6 %G%";
+static char *SccsId = "@(#)aux.c       1.7 %G%";
 
 /*
  * Return a pointer to a dynamic copy of the argument.
 
 /*
  * Return a pointer to a dynamic copy of the argument.
@@ -395,9 +395,12 @@ source(name)
        char name[];
 {
        register FILE *fi;
        char name[];
 {
        register FILE *fi;
+       register char *cp;
 
 
-       if ((fi = fopen(name, "r")) == NULL) {
-               perror(name);
+       if ((cp = expand(name)) == NOSTR)
+               return(1);
+       if ((fi = fopen(cp, "r")) == NULL) {
+               perror(cp);
                return(1);
        }
        if (ssp >= _NFILE-2) {
                return(1);
        }
        if (ssp >= _NFILE-2) {