Lines Matching refs:del
67 my $del;72 $del = delete $a[0];75 expect($del, "I like pie.");76 $del = delete $a[2];78 expect($del, "GIVE ME PIE");79 $del = delete $a[0];81 expect($del, "");82 $del = delete $a[1];84 expect($del, "");88 $del = delete $a[4];90 expect($del, undef);