From 4a749eda2ed95dbc3180fcdbe5590e2bb2f04198 Mon Sep 17 00:00:00 2001 From: Frank Lichtenheld Date: Sat, 2 Dec 2006 00:08:52 +0000 Subject: [PATCH] string2id(): Also allow ":.-" --- lib/Packages/CGI.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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; } -- 2.39.2