11 Jan
2011
11 Jan
'11
1:38 p.m.
2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com>
Según instrucciones del Sr Couto... he sustituido lo
"rojo" por lo "azul"
y el error ha desaparecido pero me temo que no funciona... lo que se
consigue con el cambio de "código" es que no salte el error, digo esto por
que tarda muchísimo en aparecer el "done" por lo que sospecho que no da el
error y da un falso "positivo"...
*# open(FILE, $_[0]);
# if($! eq "") {*
# le fichier a envoyer existe
*if(open(FILE, $_[0])) {*
close FILE;
} else {
print "El archivo $_[0] no existe !\ncrea uno antes de
lanzar esta aplicacion...\n";
close FILE;
return -1;
}
Todo este cacho de código rarito puedes substituirlo por:
if (! -e $_[0]) {
print "El archivo $_[0] no existe !\ncrea uno antes de lanzar esta
aplicacion...\n";
return -1;
}
--
Rafa Couto - http://caligari.treboada.net
GNU/Linux user #99126 - http://counter.li.org
GPG key - http://bit.ly/D76ABDEC