strict removal only of command-line params

diff --git a/lib/PXElator/CouchDB.pm b/lib/PXElator/CouchDB.pm
index 45bd314..7e012f2 100644 (file)
--- a/lib/PXElator/CouchDB.pm
+++ b/lib/PXElator/CouchDB.pm
@@ -99,7 +99,7 @@ sub audit {
        my $data = pop @_;
 
        my $url = join(' ', @_);
-       $url =~ s/-\S+//g;
+       $url =~ s/\s+-\S+//g;   # remove command line options
        $url =~ s/\W+/-/g;
 
        my ( $package, $file, $line, $sub ) = caller(1);