On Wed, 2002-03-13 at 04:27, Robert Hart wrote:
> 2) Why is this function written in this obscure way anyway?
It was written before I saw the light of regular expressions. :-)
> Why not something like:
> my ($str)=@_;
> $str=s/[$AllowedChars]+//g;
> return $str;
Close. This does the job:
sub MakeLegalName
{
my ($str) = @_;
$str =~ s/[^$AllowedChars]//g;
return $str;
}
I just checked it into CVS. I'm headed out of town for a few days, but
when I come back I want to finish up the remaining bugs for 0.5.0 and
get it out the door finally...
--
--ruaok Freezerburn! All else is only icing. -- Soul Coughing
Robert Kaye -- [EMAIL PROTECTED] -- http://www.mayhem-chaos.net
_______________________________________________
Obs-dev mailing list
[EMAIL PROTECTED]
http://www.freeamp.org/mailman/listinfo/obs-dev
