This is not a Perl 5 problem but I don't know where to ask this...
We have problems with Perl 4.036: memory leaks on most machines plus a
recent segmentation fault on Alpha OSF machines with one of our
scripts. Where can I find some (even old) patches for Perl 4?
I know we should use Perl 5 but we can't, at least for the moment...
Thanks in advance for your help,
Lionel Cons
+------- CERN - European Laboratory for Particle Physics -------+
| E-mail: Lionel.Cons@cern.ch |
| Earth-mail: CN/DCI/UWS, CERN, CH-1211 GENEVE 23, Switzerland |
| Phone: + (41 22) 767 49 13 Fax: + (41 22) 767 71 55 |
+---------------------------------------------------------------+
#!/usr/local/bin/perl5
@x=('no bawujts','mx ypihtre','ercqkg lah');
@y=(793633,793634,793633);
$x=join('',grep(eval("\$_*=97,tr/0-9/$x[$x++]/"),@y));
print "\u$x!\n";
We have problems with Perl 4.036: memory leaks on most machines plus a
recent segmentation fault on Alpha OSF machines with one of our
scripts. Where can I find some (even old) patches for Perl 4?
I know we should use Perl 5 but we can't, at least for the moment...
Thanks in advance for your help,
Lionel Cons
+------- CERN - European Laboratory for Particle Physics -------+
| E-mail: Lionel.Cons@cern.ch |
| Earth-mail: CN/DCI/UWS, CERN, CH-1211 GENEVE 23, Switzerland |
| Phone: + (41 22) 767 49 13 Fax: + (41 22) 767 71 55 |
+---------------------------------------------------------------+
#!/usr/local/bin/perl5
@x=('no bawujts','mx ypihtre','ercqkg lah');
@y=(793633,793634,793633);
$x=join('',grep(eval("\$_*=97,tr/0-9/$x[$x++]/"),@y));
print "\u$x!\n";