Mercurial > pub > Impl

annotate _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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
83
74bae30eb25e (no commit message)
wizard
parents:
diff changeset
1 #!/usr/bin/perl
93
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
2 use strict;
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
3
102
cf3b6ef2be22 Schema beta version
wizard
parents: 97
diff changeset
4 local $@;
93
0667064553ef fixed _is_class in activator
wizard
parents: 86
diff changeset
5
102
cf3b6ef2be22 Schema beta version
wizard
parents: 97
diff changeset
6 {
cf3b6ef2be22 Schema beta version
wizard
parents: 97
diff changeset
7 eval 'die "boolshit"';
cf3b6ef2be22 Schema beta version
wizard
parents: 97
diff changeset
8 my $e = $@;
cf3b6ef2be22 Schema beta version
wizard
parents: 97
diff changeset
9
cf3b6ef2be22 Schema beta version
wizard
parents: 97
diff changeset
10 die "msg: $e" if $e;
cf3b6ef2be22 Schema beta version
wizard
parents: 97
diff changeset
11 }