Mercurial > pub > Impl

annotate _test/temp.pl @ 103:c289ed9662ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Schema beta 2 More strict validation, support for inflating a simple nodes and properties
author wizard
date Fri, 07 May 2010 18:17:40 +0400
parents cf3b6ef2be22
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 }