From: Frank Lichtenheld Date: Sat, 2 Dec 2006 00:08:52 +0000 (+0000) Subject: string2id(): Also allow ":.-" X-Git-Url: https://git.deb.at/w?a=commitdiff_plain;h=4a749eda2ed95dbc3180fcdbe5590e2bb2f04198;p=deb%2Fpackages.git string2id(): Also allow ":.-" --- diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm index 555c9e5..b15e9ed 100644 --- a/lib/Packages/CGI.pm +++ b/lib/Packages/CGI.pm @@ -4,7 +4,6 @@ use strict; use warnings; use Exporter; -use Packages::Config; our @ISA = qw( Exporter ); our @EXPORT = qw( DEBUG debug fatal_error get_mime ); @@ -349,8 +348,8 @@ sub printindexline { sub string2id { my $string = "@_"; - - $string =~ s/[^\w]/_/g; + + $string =~ s/[^\w:.-]/_/g; return $string; }