[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 29 20:40:09 EDT 2004
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv21862/scripts

Modified Files:
	testMOBYClientCentral_v05.pl 
Log Message:
deprecating the deregisterService routine... kinda... it still works, but only if the service was registered without a signatureURL

moby-live/Perl/scripts testMOBYClientCentral_v05.pl,1.20,1.21
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/07/30 00:14:15	1.20
+++ /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/07/30 00:40:09	1.21
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use MOBY::Client::Central;
 
-my $v = 1 if ($ARGV[0] eq "verbose");
+my $v = 1 if ($ARGV[0] && ($ARGV[0] eq "verbose"));
 
 sub TEST {  # test of Registration object
     ($reg, $test, $expect) = @_;