From 5ab07b80fda472375cff3a2fbc87fda67145dcd9 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Wed, 18 Feb 2004 21:21:20 +0000
Subject: [PATCH] bugfix

---
 modules/smiley-dir.pl | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/modules/smiley-dir.pl b/modules/smiley-dir.pl
index 52a042c8..99d0a4b7 100644
--- a/modules/smiley-dir.pl
+++ b/modules/smiley-dir.pl
@@ -21,12 +21,18 @@ use vars qw{$SmileyDir $SmileyUrlPath};
 $SmileyDir = '/mnt/pics'; # directory with all the smileys
 $SmileyUrlPath = '/pics'; # path where all the smileys can be found (URL)
 
-$ModulesDescription .= '<p>$Id: smiley-dir.pl,v 1.1 2004/02/18 21:01:11 as Exp $</p>';
+$ModulesDescription .= '<p>$Id: smiley-dir.pl,v 1.2 2004/02/18 21:21:20 as Exp $</p>';
 
-if (opendir(DIR, $SmileyDir)) {
-  map { /^(.*)\.$ImageExtensions$/
-	&& -f "$SmileyDir/$_"
-	&& $Smilies{"\{$1\}"} = "$SmileyUrlPath/$pic"
-      } readdir(DIR);
-  closedir DIR;
+*OldSmileyDirInitVariables = *InitVariables;
+*InitVariables = *NewSmileyDirInitVariables;
+
+sub NewSmileyDirInitVariables {
+  OldSmileyDirInitVariables();
+  if (opendir(DIR, $SmileyDir)) {
+    map { /^((.*)\.$ImageExtensions$)/
+	    and -f "$SmileyDir/$_"
+	      and $Smilies{"\{$2\}"} = "$SmileyUrlPath/$1"
+	    } readdir(DIR);
+    closedir DIR;
+  }
 }