X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=db52ad81076fa91d67a165b60adc8e567c58d8d9;hb=145f379500a27a90895aa3b0fbd8b63425e3c148;hp=8a5cffe4334a2b4e7c7d3cccd4ace2975bddf784;hpb=2d1175b409d790f991091e8f2884d26591021b9a;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 8a5cffe4..db52ad81 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -17,7 +17,7 @@ use strict;
 
 use vars qw($VERSION $BRANCH);
 
-main::mkver($VERSION = q$Revision$);
+main::mkver($VERSION = q$Revision$) if main->can('mkver');
 
 use vars qw(@month %patmap @ISA @EXPORT);