invalidObject Series (while)

by Pimmon

Tracklist

  1. #!/usr/bin/perl1:02
  2. $power = 8;1:02
  3. sub fission {1:02
  4. fork1:02
  5. or $child = 1;1:02
  6. $power-- if $child;1:02
  7. if ($child) {exit unless --$power}1:02
  8. return $child; }1:02
  9. while (not &fission) {1:02
  10. print 0;1:02
  11. bomb:1:02
  12. while (&fission)1:02
  13. { print 1 }1:02
  14. }1:02
  15. goto 'bomb';1:00