|  | @@ -592,7 +592,8 @@ sub swiSourceCodeGlobalGet
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |      if ( !defined($endLine) )
 | 
	
		
			
				|  |  |      {
 | 
	
		
			
				|  |  | -        $endLine = $#blockCode + 100;    # Just with overhead
 | 
	
		
			
				|  |  | +        # end line is the last by default
 | 
	
		
			
				|  |  | +        $endLine = $#blockCode + 1;
 | 
	
		
			
				|  |  |      }
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |      foreach my $function ( values %{$functionsData} )
 | 
	
	
		
			
				|  | @@ -610,14 +611,26 @@ sub swiSourceCodeGlobalGet
 | 
	
		
			
				|  |  |      }
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |      my $result = "";
 | 
	
		
			
				|  |  | -    foreach (@blockCode)
 | 
	
		
			
				|  |  | +    my $emptyLines = "";
 | 
	
		
			
				|  |  | +    foreach my $line (@blockCode)
 | 
	
		
			
				|  |  |      {
 | 
	
		
			
				|  |  | +        # Check if it is necessary to finish
 | 
	
		
			
				|  |  |          $endLine--;
 | 
	
		
			
				|  |  |          if ( $endLine < 0 )
 | 
	
		
			
				|  |  |          {
 | 
	
		
			
				|  |  |              last;
 | 
	
		
			
				|  |  |          }
 | 
	
		
			
				|  |  | -        $result .= $_ . "\n";
 | 
	
		
			
				|  |  | +        
 | 
	
		
			
				|  |  | +        # attach frag only if it is not empty
 | 
	
		
			
				|  |  | +        if ($line =~ m/[^ \t]/)
 | 
	
		
			
				|  |  | +        {
 | 
	
		
			
				|  |  | +            $result .= $emptyLines . $line . "\n";
 | 
	
		
			
				|  |  | +            $emptyLines = "";      
 | 
	
		
			
				|  |  | +        }
 | 
	
		
			
				|  |  | +        else
 | 
	
		
			
				|  |  | +        {
 | 
	
		
			
				|  |  | +            $emptyLines .= $line . "\n";
 | 
	
		
			
				|  |  | +        }
 | 
	
		
			
				|  |  |      }
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |      return $result;
 |