CVS: spip/ecrire inc_index.php3,1.48,1.49

Update of /home/spip-cvs/spip/ecrire
In directory miel:/tmp/cvs-serv19491/ecrire

Modified Files:
  inc_index.php3
Log Message:
rand(0,0) [Perline]

Index: inc_index.php3

RCS file: /home/spip-cvs/spip/ecrire/inc_index.php3,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- inc_index.php3 27 Nov 2003 23:09:09 -0000 1.48
+++ inc_index.php3 26 Jan 2004 20:56:32 -0000 1.49
@@ -263,7 +263,7 @@
   if ($s = @sizeof($suite = @file($fichier_index))) {
     include_ecrire("inc_texte.php3");
     include_ecrire("inc_filtres.php3");
- $s = $suite[$n = rand(0, $s-1)];
+ $s = $suite[$n = @rand(0, $s-1)];
     unset($suite[$n]);
     $f = fopen($fichier_index, 'wb');
     fwrite($f, join("", $suite));