X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=cd15057d56fe40c8b42c6ea8943a6177f32bdd78;hp=9e710c11be504569227bc811c159188bf74edfa0;hb=7e9852009e053721cb64d9c1c8c4f82457dac181;hpb=d8d7d25e92a56847754a237166ca926adc2199ca

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 9e710c11..cd15057d 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -13,7 +13,7 @@ package DXCommandmode;
 
 @ISA = qw(DXChannel);
 
-use 5.10.1;
+use 5.8.1;
 
 use POSIX qw(:math_h);
 use DXUtil;
@@ -801,7 +801,6 @@ sub clear_cmd_cache
 sub valid_package_name {
 	my $string = shift;
 	$string =~ s|([^A-Za-z0-9_/])|sprintf("_%2x",unpack("C",$1))|eg;
-	
 	$string =~ s|/|_|g;
 	return "cmd_$string";
 }
@@ -836,7 +835,7 @@ sub find_cmd_name {
 		};
 		
 		#wrap the code into a subroutine inside our unique package
-		my $eval = qq(package DXCommandmode::$package; use 5.10.1; use POSIX qw{:math_h}; use DXLog; use DXDebug; use DXUser; use DXUtil; our \@ISA = qw{DXCommandmode}; );
+		my $eval = qq(package DXCommandmode::$package; use 5.8.1; use POSIX qw{:math_h}; use DXLog; use DXDebug; use DXUser; use DXUtil; our \@ISA = qw{DXCommandmode}; );
 
 
 		if ($sub =~ m|\s*sub\s+handle\n|) {