Hi,
It seems there is a bug with Perl, which causes all the text to go yellow (as if its broken). Some example code:
[code] if (length($current_val) > 0) {
# has a linkid in here already...
my @tmp = split /,/, $current_val;
my $exists;
foreach (@tmp) { $exists->{$_} = 1; }
if (!$exists->{$linkID}) { push @tmp , $linkID; }
$current_val = join(',', @tmp);
} else {
#cookie doesnt exist yet
$current_val = $linkID;
}[/code]
The problem seems to be with the /,/ part:
split /,/
If I change it to:
split |,|
…then it works fine… but thats not ideal
Any ideas?
TIA
Andy