[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Tue Sep  2 09:13:57 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv22148/Perl/MOBY-Server/lib/MOBY

Modified Files:
	Admin.pm 
Log Message:
added $VERSION numbers to the modules.
moby-live/Perl/MOBY-Server/lib/MOBY Admin.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Admin.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Admin.pm	2008/02/21 00:21:27	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Admin.pm	2008/09/02 13:13:57	1.2
@@ -24,6 +24,9 @@
 use MOBY::CommonSubs;
 use MOBY::MobyXMLConstants;
 
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
 sub deregisterService {
 	my ( $self, $xml ) = @_;