Mercurial > hg > xemacs-beta

comparison src/make-src-depend @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
33 "; 33 ";
34 34
35 die $usage if @ARGV; 35 die $usage if @ARGV;
36 36
37 ($srcdir = $0) =~ s@[^/]+$@@; 37 ($srcdir = $0) =~ s@[^/]+$@@;
38 $srcdir = "." if $srcdir eq "";
38 chdir $srcdir or die "$srcdir: $!"; 39 chdir $srcdir or die "$srcdir: $!";
39 40
40 opendir SRCDIR, "." or die "$srcdir: $!"; 41 opendir SRCDIR, "." or die "$srcdir: $!";
41 for (grep (/\.[ch]$/, readdir (SRCDIR))) { $exists{$_} = 1; } 42 for (grep (/\.[ch]$/, readdir (SRCDIR))) { $exists{$_} = 1; }
42 closedir SRCDIR; 43 closedir SRCDIR;