[Bioperl-l] mystery

[Josh Lauricha]

On Wed 06/22/05 18:30, Tamas Horvath wrote:
> while ($pdb_data =~ /(REMARK 999.*)/g) {
>      die "die2";
>     }
> die"die1" if $pdb_data =~ /(REMARK 999.*)/;
> 
> the following code terminates with "die1". Does anyone know why?
> the $pdb_data is a string of a pdb entry (1PHK)

Odd seems to work here (as expected, "die2"). Check the odd perl
variables that change the behavior of things (man perlvar).

-- 

------------------------------------------------------
| Josh Lauricha            | Ford, you're turning    |
| laurichj at bioinfo.ucr.edu | into a penguin. Stop    |
| Bioinformatics, UCR      | it                      |
|----------------------------------------------------|
| OpenPG:                                            |
|  4E7D 0FC0 DB6C E91D 4D7B C7F3 9BE9 8740 E4DC 6184 |
|----------------------------------------------------|
| Geek Code: Version 3.12                            |
| GAT/CS$/IT$ d+ s-: a-->--- C++++$ UL++++$ P++ L++++|
| $E--- W+ N o? K? w--(---) O? M+(++) V? PS++ PE-(--)|
| Y+ PGP+++ t--- 5+++ X+ R tv DI++ D--- G++          |
| e++ h- r++ z?                                      |
|----------------------------------------------------|