Mercurial > pub > Impl

diff _test/temp.pl @ 102:cf3b6ef2be22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Schema beta version
author wizard
date Fri, 07 May 2010 08:05:23 +0400
parents 964587c5183c
children 196bf443b5e1
line wrap: on
line diff
--- a/_test/temp.pl	Thu May 06 17:55:59 2010 +0400
+++ b/_test/temp.pl	Fri May 07 08:05:23 2010 +0400
@@ -1,6 +1,11 @@
 #!/usr/bin/perl
 use strict;
 
-use IMPL::Security::Context;
+local $@;
 
-print IMPL::Security::Context->current->principal->name;
\ No newline at end of file
+{
+	eval 'die "boolshit"';
+	my $e = $@;
+	
+	die "msg: $e" if $e;
+}
\ No newline at end of file