| Subject: | Wrong folder image |
All array elements got the folder image, regardless whether they are references or not. The included patch (at least visible in the Web interface of RT) solves the problem.
Regards,
Slaven
#
#
# To apply this patch:
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'applypatch' program with this patch file as input.
#
# If you do not have 'applypatch', it is part of the 'makepatch' package
# that you can fetch from the Comprehensive Perl Archive Network:
# http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz
# In the above URL, 'x' should be 2 or higher.
#
# To apply this patch without the use of 'applypatch':
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'patch' program with this file as input.
#
#### End of Preamble ####
#### Patch data follows ####
diff -up '/usr/local/dist/cpan/build/Tk-ObjScanner-2.007/ObjScanner.pm' 'ObjScanner.pm'
Index: ./ObjScanner.pm
Prereq: 2.7
--- ./ObjScanner.pm Fri Nov 28 18:16:19 2003
+++ ./ObjScanner.pm Fri Jul 2 13:48:55 2004
@@ -396,7 +396,7 @@ sub displayObject
foreach my $i (0 .. $#$$ref)
{
#print "adding array item $i: $_,",ref($_),"\n";
- my $img = $$ref->[$i] ? $cw->{foldImg} : $cw->{itemImg} ;
+ my $img = ref $$ref->[$i] ? $cw->{foldImg} : $cw->{itemImg} ;
my $npath = $h->addchild
(
$name,
#### End of Patch data ####
#### ApplyPatch data follows ####
# Data version : 1.0
# Date generated : Fri Jul 2 13:49:11 2004
# Generated by : makepatch 2.00_11*
# Recurse directories : Yes
# Excluded files : (\A|/).*\~\Z
# (\A|/).*\.a\Z
# (\A|/).*\.bak\Z
# (\A|/).*\.BAK\Z
# (\A|/).*\.elc\Z
# (\A|/).*\.exe\Z
# (\A|/).*\.gz\Z
# (\A|/).*\.ln\Z
# (\A|/).*\.o\Z
# (\A|/).*\.obj\Z
# (\A|/).*\.olb\Z
# (\A|/).*\.old\Z
# (\A|/).*\.orig\Z
# (\A|/).*\.rej\Z
# (\A|/).*\.so\Z
# (\A|/).*\.Z\Z
# (\A|/)\.del\-.*\Z
# (\A|/)\.make\.state\Z
# (\A|/)\.nse_depinfo\Z
# (\A|/)core\Z
# (\A|/)tags\Z
# (\A|/)TAGS\Z
# p 'ObjScanner.pm' 22910 1088768935 0100644
#### End of ApplyPatch data ####
#### End of Patch kit [created: Fri Jul 2 13:49:11 2004] ####
#### Patch checksum: 48 1846 44104 ####
#### Checksum: 66 2470 30096 ####