[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Sat Aug 16 20:57:50 UTC 2003


mwilkinson
Sat Aug 16 16:57:50 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv7440

Modified Files:
	Central.pm 
Log Message:
redefined the variable by accident

moby-live/Perl/MOBY Central.pm,1.101,1.102
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -r1.101 -r1.102
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/08/16 20:30:09	1.101
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/08/16 20:57:50	1.102
@@ -2406,10 +2406,10 @@
 	#open (WSDL, "./MOBY/Central_WSDL_SandR.wsdl") || die "can't open WSDL file for search and replace\n";
 	#my $wsdl = join "", (<WSDL>);
 	my $wsdl = $WSDL_TEMPLATE;    
-    $wsdl =~ s/^\n//gs;
+   	$wsdl =~ s/^\n//gs;
 	#close WSDL;
 	# do substitutions
-    
+
 	my $serviceName = $SI->servicename;
 	my $AuthURI = $SI->authority_uri;
 	my $desc = $SI->description;
@@ -2814,7 +2814,7 @@
 
 
 
-my $WSDL_TEMPLATE = <<END;
+$WSDL_TEMPLATE = <<END;
 <?xml version="1.0"?>
 <definitions name="MOBY_Central_Generated_WSDL"
 		targetNamespace="http://biomoby.org/Central.wsdl"
@@ -2876,3 +2876,4 @@
 
 
 1;
+




More information about the MOBY-guts mailing list