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;
}