1 files changed, 1 insertions, 5 deletions
diff --git a/sbin/chksession b/sbin/chksession
index 2afe61c..72208a8 100644
--- a/sbin/chksession
+++ b/sbin/chksession
@@ -68,11 +68,7 @@ while ($ARGV[0] =~ /^--/ || $ARGV[0] =~ /^-/) {
 }
   
 $dir = $test ? './wmsession.d/' : '/etc/X11/wmsession.d/' unless $dir;
-opendir D, $dir or die "Can't open $dir\n";
-for (readdir(D)) {
-    my $file = $_;
-    parse_file ("$dir/$file");
-}
+chdir $dir; parse_file ("$dir/$_") for <*>;
 
 sub cat { my ($f) = @_; local *F; open F, $f; join '', <F> }
 my ($e) = cat("/etc/sysconfig/desktop") =~ /(\S+)/;