Mercurial > pub > Impl

comparison _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
comparison
equal deleted inserted replaced
101:d8dc6cad3f55 102:cf3b6ef2be22
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 use strict; 2 use strict;
3 3
4 use IMPL::Security::Context; 4 local $@;
5 5
6 print IMPL::Security::Context->current->principal->name; 6 {
7 eval 'die "boolshit"';
8 my $e = $@;
9
10 die "msg: $e" if $e;
11 }