diff options
| author | lloyd <[email protected]> | 2008-06-30 01:53:33 +0000 |
|---|---|---|
| committer | lloyd <[email protected]> | 2008-06-30 01:53:33 +0000 |
| commit | b356a8da115446720f372a71d5a935d591f16a2f (patch) | |
| tree | 3e760fd5fa2396c2226a28cdfae0edf4df2a0242 | |
| parent | 8fc77440200760286da8f485bb5a5b722f53811f (diff) | |
Ignore files containing # chars (emacs temp files)
| -rwxr-xr-x | configure.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/configure.pl b/configure.pl index 6357c4461..862a47081 100755 --- a/configure.pl +++ b/configure.pl @@ -823,7 +823,8 @@ sub dir_list { my ($dir) = @_; opendir(DIR, $dir) or croak("Couldn't read directory '$dir' ($!)"); - my @listing = grep { $_ ne File::Spec->curdir() and + my @listing = grep { !/#/ and + $_ ne File::Spec->curdir() and $_ ne File::Spec->updir() } readdir DIR; closedir DIR; |