[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Sat Aug 16 21:36:38 UTC 2003


mwilkinson
Sat Aug 16 17:36:38 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv7789/scripts

Modified Files:
	MOBY-Client05.cgi OntologyServer.cgi 
Log Message:
making changes to strict refs to make mod_perl happy

moby-live/Perl/scripts MOBY-Client05.cgi,1.20,1.21 OntologyServer.cgi,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/08/16 21:18:31	1.20
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/08/16 21:36:38	1.21
@@ -9,8 +9,9 @@
 use Data::Dumper;
 use CGI qw/:standard/;
 
-my $debug = 0; # change to '1' to get debugging messages in /tmp
-my $ERROR_FLAG = 0;
+use vars qw($debug $ERROR_FLAG);
+
+$debug = 0; # change to '1' to get debugging messages in /tmp
 if ($debug) {
   # refreshes the debugging log
   open (OUT, ">/tmp/Client05LogOut.txt")

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi	2003/08/16 21:18:31	1.2
+++ /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi	2003/08/16 21:36:38	1.3
@@ -9,8 +9,10 @@
 my @params = $q->param;
 my $param = $params[0];  # one call per customer
 
-&$param($q->param($param));  #call that subroutie with the passed value
+no strict "refs";
 
+&$param($q->param($param));  #call that subroutie with the passed value
+use strict;
 
 sub testme {
     return "yes" if $_[0] eq "correct";




More information about the MOBY-guts mailing list