Add executive bits to scripts.

[usenet/usevote.git] / uvvote.pl

diff --git a/uvvote.pl b/uvvote.pl
old mode 100644 (file)
new mode 100755 (executable)
index a86ef43..72a366e
--- a/uvvote.pl
+++ b/uvvote.pl
@@ -122,9 +122,9 @@ if ($clean) {
   # normally unixtime is sufficient, if it is not unique append our PID
   my $ext = time;
 
   # normally unixtime is sufficient, if it is not unique append our PID
   my $ext = time;
 

-  opendir (TMP, $config{tmpdir});
+  opendir (DIR, $config{tmpdir});

   my @tmpfiles = readdir (DIR);
   my @tmpfiles = readdir (DIR);

-  closedir (TMP);
+  closedir (DIR);

   opendir (FERTIG, $config{archivedir});
   my @fertigfiles = readdir (FERTIG);
   closedir (FERTIG);
   opendir (FERTIG, $config{archivedir});
   my @fertigfiles = readdir (FERTIG);
   closedir (FERTIG);