exit: zahada

[Jiri Polcar]

    Zdravim,

prave jsem se potkal ze zahadou. Spript vesele pokracuje i po volani fce
exit():

---cite---
#!/usr/bin/perl -w

if ( doCommand ('eeeecho pepa') ) {
  print "Podminka splnena\n";
} else {
  print "Podminka NEsplnena\n";
}

print "KONEC\n";


sub doCommand {
  my ( $co ) = @_;

  {
    local $SIG{__WARN__} = sub { die @_ };
    eval { system $co };
  }

  if ( $@ ) {
    print STDERR "$0: ERROR: Cannot run: $co\n";
    exit 1;
  }

  print "OK\n";

  return 1;
}
---cite---

predpokladam, ze neco co by se dalo pustit se nejmenuje 'eeeecho'. Zde
posilam jeste vystup:


---cite---
./t41.pl: ERROR: Cannot run: eeeecho pepa
OK
Podminka splnena
KONEC
---cite---

Muze me nekdo vysvetlit, tak to, ze fce exit() neukonci beh skriptu?

Diky.

--
JP