sub casa_ruta
{
        my ($r, $ruta,$exactly)=@_;

# avoid empty patern
#       if (length ($ruta) == 0)
#       {
#               $ruta=".";
#       }
        if (defined $exactly)
        {
                if ($r eq $ruta)
                {
                        return 1;       
                }
        }
        else
        {
                if ($r =~ /$ruta/i)
                {
                        return 1;
                }
        }
        return 0;
}


##</code><code>##

sub casa_ruta
{
        my ($r, $ruta,$exactly)=@_;


        if ("r" =~ /(r)/)
        {
                ;
        }
        else
        {
                print STDERR "BUG\n";
        }
        #print STDERR "$fix_re";

#       if (length ($ruta) == 0)
#       {
#               $ruta=".";
#       }
        if (defined $exactly)
        {
                if ($r eq $ruta)
                {
                        return 1;       
                }
        }
        else
        {
          if ("r" =~ /(r)/)
          {
                 ;
          }
          else
          {
                print STDERR "BUG2\n";
          }
                if ($r =~ /$ruta/i)
                {
                        return 1;
                }
                else
                {
                        printf STDERR "BUG ('$r','$ruta')\n";
                        printf STDERR join (",",caller);
                        exit 1;
                }
        }
        return 0;
}

##</code><code>##

  DB<1> c 152
... #my script output here
main::ejecutar_sae_appfinder(/srv/www/sae_appfinder/index.pl:152):
152:			%nodos_tomcats=buscar_ruta_tomcats ($p_ruta,\%apaches,\%tomcats,$search_tomcathost);
  DB<2> s
Sae::Inventario::buscar_ruta_tomcats(/opt/scripts/perl/Sae/Inventario.pm:1181):
1181:		my ($ruta,$apaches,$tomcats,$search_tomcathost)=@_;
  DB<2> c casar_ruta
Subroutine Sae::Inventario::casar_ruta not found.
  DB<3> c casa_ruta
Sae::Inventario::casa_ruta(/opt/scripts/perl/Sae/Inventario.pm:91):
91:		my ($r, $ruta,$exactly)=@_;
  DB<4> x @_
0  ''
1  ''
  DB<5> n
Sae::Inventario::casa_ruta(/opt/scripts/perl/Sae/Inventario.pm:94):
94:		if ("r" =~ /(r)/)
95:		{
  DB<5> p "$r" =~ /$ruta/
1<label><input type="radio" name="format" value="html" checked="checked" />html</label><label><input type="radio" name="format" value="odt" />odt</label><br><input type="submit" name="consultar" value="consultar" /><div><input type="hidden" name=".cgifields" value="info"  /><input type="hidden" name=".cgifields" value="format"  /><input type="hidden" name=".cgifields" value="entorno"  /></div></form></div>
  DB<6> p "$r" =~ /$ruta/
1
  DB<7> n
Sae::Inventario::casa_ruta(/opt/scripts/perl/Sae/Inventario.pm:108):
108:		if (defined $exactly)
109:		{
  DB<7> p "$r" =~ /$ruta/

  DB<8>