diff _test/temp.pl @ 125:a4b0a819bbda

Small fixes in IMPL::DOM::Schema
author wizard
date Thu, 10 Jun 2010 17:43:51 +0400
parents 196bf443b5e1
children 44977efed303
line wrap: on
line diff
--- a/_test/temp.pl	Thu Jun 10 02:45:59 2010 +0400
+++ b/_test/temp.pl	Thu Jun 10 17:43:51 2010 +0400
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 use strict;
 
-my $var = "  some stuff";
-
-$var =~ tr/f/ome/;
+my $var ;
+$var->{dool} = '';
 print $var;
\ No newline at end of file