[MOBY-guts] biomoby commit

Sebastien Carrere carrere at pub.open-bio.org
Mon Oct 24 08:57:34 UTC 2005


carrere
Mon Oct 24 04:57:34 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv23118

Modified Files:
	MOBYXSLT.pm 
Log Message:
Bad parameters initializations. Lot of warnings removed.

moby-live/Perl/MOBY MOBYXSLT.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/MOBYXSLT.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/MOBYXSLT.pm	2005/10/21 13:22:18	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/MOBYXSLT.pm	2005/10/24 08:57:34	1.3
@@ -735,19 +735,36 @@
     my @a_crossref  = ();
     my @a_hasa      = ();
 
+    my ($object_type,$object_name,$object_id,$object_namespace) = ('','','','');
     my $object_type_tag = '#XSL_LIPM_MOBYPARSER_OBJECTTYPE#';
-    my ($object_type) = ($simple_bloc =~ /$object_type_tag(\S+)$object_type_tag/);
-    $object_type =~ s/^moby://i;
+    
+    if ($simple_bloc =~ /$object_type_tag(\S+)$object_type_tag/)
+    {
+        $object_type = $1;
+        $object_type =~ s/^moby://i;
+    }
 
     my $object_namespace_tag = '#XSL_LIPM_MOBYPARSER_OBJECTNAMESPACE#';
-    my ($object_namespace) = ($simple_bloc =~ /$object_namespace_tag(\S+)$object_namespace_tag/);
-
+    
+    if ($simple_bloc =~ /$object_namespace_tag(\S+)$object_namespace_tag/)
+    {
+        $object_namespace = $1;
+    }
+    
     my $object_id_tag = '#XSL_LIPM_MOBYPARSER_OBJECTID#';
-    my ($object_id) = ($simple_bloc =~ /$object_id_tag(\S+)$object_id_tag/);
-
+    
+    if ($simple_bloc =~ /$object_id_tag(\S+)$object_id_tag/)
+    {
+        $object_id = $1;
+    }
+    
     my $object_name_tag = '#XSL_LIPM_MOBYPARSER_OBJECTNAME#';
-    my ($object_name) = ($simple_bloc =~ /$object_name_tag(\S+)$object_name_tag/);
 
+    if ($simple_bloc =~ /$object_name_tag(\S+)$object_name_tag/)
+    {
+        $object_name = $1
+    }
+    
     my $crossref_start_tag = '#XSL_LIPM_MOBYPARSER_CROSSREF_START#';
     my $crossref_end_tag   = '#XSL_LIPM_MOBYPARSER_CROSSREF_END#';
     my $crossref_sep_tag   = '#XSL_LIPM_MOBYPARSER_CROSSREF_SEP#';
@@ -765,7 +782,8 @@
     }
 
     my $object_content_tag = '#XSL_LIPM_MOBYPARSER_OBJECTCONTENT#';
-    my ($before, $object_content, $after) = split($object_content_tag, $simple_bloc);
+    my ($before, $object_content, $after) = ('','','');
+    ($before, $object_content, $after) = split($object_content_tag, $simple_bloc);
 
     my $object_hasa_start_tag = '#XSL_LIPM_MOBYPARSER_OBJECTHASA_START#';
 




More information about the MOBY-guts mailing list