X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=8beb7e51e756f44270b0ddf3cfcbbf4f53792f99;hb=d7c1b365e73f33a68449a3a0132c628e289ef526;hp=5f5af2ddf415100a9c6bfbe64785644ef3055952;hpb=7ab06733bff9df3779a4082b5863a6273b5373d7;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 . "\$";
 }