X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FCGI.pm;h=b15e9edc63162da758865f07f4607bc8a6cf90f7;hb=11fd4b5f87f668eeb33922c6f64823e40828d137;hp=555c9e534944f80ecc02bfc1efa360f0fdabc3f6;hpb=c40b1514a9289273df1ae785fd938b8fa0f31183;p=deb%2Fpackages.git

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;
 }