metatools/sysdeftools/joinsysdef.pl
changeset 658 cab9da9b71bb
parent 657 5720fe8b820c
child 660 66ff3e731c60
equal deleted inserted replaced
657:5720fe8b820c 658:cab9da9b71bb
   288 				# remove leading ./  which is used to indicate that paths should remain relative
   288 				# remove leading ./  which is used to indicate that paths should remain relative
   289 				$link=~s,^\./([^/]),$1,; 
   289 				$link=~s,^\./([^/]),$1,; 
   290 				$node->setAttribute($atr,$link);
   290 				$node->setAttribute($atr,$link);
   291 				}
   291 				}
   292 			}
   292 			}
       
   293 		if(scalar @{$node->getChildNodes()} && $maxschema=~/^3\.0/)
       
   294 			{
       
   295 			die "Error: Fatal syntax error in $file. Unit elements must be empty in schema $maxschema.\n";
       
   296 			}
   293 		}
   297 		}
   294 	elsif($tag eq 'meta')
   298 	elsif($tag eq 'meta')
   295 		{
   299 		{
   296 		my $rel= $node->getAttribute('rel') || 'Generic';
   300 		my $rel= $node->getAttribute('rel') || 'Generic';
   297 		if($excludeMeta{$rel})
   301 		if($excludeMeta{$rel})