From: Eric S. Raymond <esr@thyrsus.com>
Date: Sun, 14 Sep 2003 15:33:53 +0000 (+0000)
Subject: List SCF files by stem, removing the suffix.
X-Git-Tag: 1.6~28
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=613b018512496258804f5afbcc1628addcbe344b;p=comparator.git

List SCF files by stem, removing the suffix.
---

diff --git a/main.c b/main.c
index b3a3426..d939b3d 100644
--- a/main.c
+++ b/main.c
@@ -578,6 +578,7 @@ main(int argc, char *argv[])
 	    if (scf->fp)
 	    {
 		read_scf(scf);
+		scf->name[strlen(scf->name) - strlen(".scf")] = '\0';
 		fclose(scf->fp);
 	    }