X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/2aa0942b62a6812b687b293f40775d004be6cbe1..dc1ab5f00eed170e75fe40687b381369a35760b8:/sample.plp diff --git a/sample.plp b/sample.plp index 33d06e9..f824e14 100644 --- a/sample.plp +++ b/sample.plp @@ -10,7 +10,7 @@ Html({ }); open my $source, '<', $textinc - or die "Could not open text at $textinc: $!\n"; + or Abort("Could not open text at $textinc", 501, $!); local $/ = "\n\n"; my $top = readline $source;