Mercurial > pub > Impl
view _test/temp.pl @ 102:cf3b6ef2be22
Schema beta version
author | wizard |
---|---|
date | Fri, 07 May 2010 08:05:23 +0400 |
parents | 964587c5183c |
children | 196bf443b5e1 |
line wrap: on
line source
#!/usr/bin/perl use strict; local $@; { eval 'die "boolshit"'; my $e = $@; die "msg: $e" if $e; }