exit: zahada

[Jiri Polcar]

Posilam jeste dva skripticky, ze kterych je patrny, v cem je problem.
Pri pusteni fce system() uvnitr eval() se dejou divny veci...

---cite---
print "before\n";

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

if ( $@ ) {
  print STDERR "Eval dopadl spatne\n";
  exit 1;
}

print "after\n";
---cite---



---cite---
print "before\n";

{ 
  local $SIG{__WARN__} = sub { die @_ };
  eval {system 'neexistujici binarka' };
}

if ( $@ ) {
  print STDERR "Eval dopadl spatne\n";
  exit 1;
}

print "after\n";
---cite---


-- 
JP