Mercurial > hg > Members > kono > Cerium
diff example/get_segment/spe/fixpic.pl @ 466:4fa8760e18c2
prohibit global variable in Task....
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 01 Oct 2009 17:33:58 +0900 |
parents | 40af9fc1d428 |
children | 7777761e8e02 |
line wrap: on
line diff
--- a/example/get_segment/spe/fixpic.pl Wed Sep 30 11:37:15 2009 +0900 +++ b/example/get_segment/spe/fixpic.pl Thu Oct 01 17:33:58 2009 +0900 @@ -54,18 +54,18 @@ s/brsl/brasl/ || s/br/bra/ ; } - } elsif(/\s(lqr)\s+(\$\d+),([^\s]+)/) { - my $name = $2; - if (! defined $local{$name} || defined $weak{$name} ) { +# } elsif(/\s(lqr)\s+(\$\d+),([^\s]+)/) { +# my $name = $2; +# if (! defined $local{$name} || defined $weak{$name} ) { # s/lqr/lqd/; - } - } elsif(/\s(ila)\s+(\$\d+),([^\s]+)/) { - my $name = $3; - if (! defined $local{$name} || defined $weak{$name} ) { - $_ = $_; - } else { - $_ = "\tai\t$2,\$0,$3-.\n"; - } +# } +# } elsif(/\s(ila)\s+(\$\d+),([^\s]+)/) { +# my $name = $3; +# if (! defined $local{$name} || defined $weak{$name} ) { +# $_ = $_; +# } else { +# $_ = "\tai\t$2,\$0,$3-.\n"; +# } } } print ;