X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;fp=perl%2FDXUtil.pm;h=8beb7e51e756f44270b0ddf3cfcbbf4f53792f99;hb=cafedfc0df4b2c519a8227e091f746a44af07ce2;hp=5f5af2ddf415100a9c6bfbe64785644ef3055952;hpb=b1c75fc83d3dd1d82a2022f6ace2cc20ced19194;p=spider.git diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm index 5f5af2dd..8beb7e51 100644 --- a/perl/DXUtil.pm +++ b/perl/DXUtil.pm @@ -280,6 +280,7 @@ sub shellregex { my $in = shift; $in =~ s{(.)} { $patmap{$1} || "\Q$1" }ge; + $in =~ s|\\/|/|g; return '^' . $in . "\$"; }