a "replacement" for awk and sed
[perl.git] / t / op.chop
1 #!./perl
2
3 # $Header: op.chop,v 1.0 87/12/18 13:13:11 root Exp $
4
5 print "1..2\n";
6
7 # optimized
8
9 $_ = 'abc';
10 $c = do foo();
11 if ($c . $_ eq 'cab') {print "ok 1\n";} else {print "not ok 1\n";}
12
13 # unoptimized
14
15 $_ = 'abc';
16 $c = chop($_);
17 if ($c . $_ eq 'cab') {print "ok 2\n";} else {print "not ok 2\n";}
18
19 sub foo {
20     chop;
21 }