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

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