X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=8beb7e51e756f44270b0ddf3cfcbbf4f53792f99;hb=4dfc1f60733b682dc1ac9724fd75395d1c41c62d;hp=182cde345ca8b0417b52e14619f41b460c657d4f;hpb=6eacc3d2fb49a6babfd77d8a0186c30968cb86ca;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 182cde34..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 . "\$";
 }
 
@@ -592,6 +593,6 @@ sub parraydifft
 
 sub basecall
 {
-	$_[0] =~ m|^(?:[\w\d]+/)?([\w\d]+).*$|;
-	return $1;
+	my ($r) = $_[0] =~ m|^(?:[\w\d]+/)?([\w\d]+).*$|;
+	return $r;
 }