X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FCmdAlias.pm;h=fc10ebe9a3b70fe5f1018a1215d166194dc8f49d;hb=b9dffeff7239952814342dad19db3a51def6fab7;hp=3ee067a413fd88710286fe342ba2cd6da6b616ae;hpb=2b58ccdf81685a1167a43c38705a0d84b9d8d661;p=spider.git diff --git a/perl/CmdAlias.pm b/perl/CmdAlias.pm index 3ee067a4..fc10ebe9 100644 --- a/perl/CmdAlias.pm +++ b/perl/CmdAlias.pm @@ -32,12 +32,6 @@ use vars qw(%alias %newalias $fn $localfn); $fn = "$main::cmd/Aliases"; $localfn = "$main::localcmd/Aliases"; -use vars qw($VERSION $BRANCH); -$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0; -$main::build += $VERSION; -$main::branch += $BRANCH; - sub load { my $ref = shift;