Mercurial > pub > Impl

diff _test/temp.pl @ 104:196bf443b5e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM::Schema RC0 inflators support, validation and some other things, Minor and major fixes almost for everything. A 'Source' property of the ValidationErrors generated from a NodeSet or a NodeList is subject to change in the future.
author wizard
date Tue, 11 May 2010 02:42:59 +0400
parents cf3b6ef2be22
children a4b0a819bbda
line wrap: on
line diff
--- a/_test/temp.pl	Fri May 07 18:17:40 2010 +0400
+++ b/_test/temp.pl	Tue May 11 02:42:59 2010 +0400
@@ -1,11 +1,7 @@
 #!/usr/bin/perl
 use strict;
 
-local $@;
+my $var = "  some stuff";
 
-{
-	eval 'die "boolshit"';
-	my $e = $@;
-	
-	die "msg: $e" if $e;
-}
\ No newline at end of file
+$var =~ tr/f/ome/;
+print $var;
\ No newline at end of file