PiFace HiPi::Wiring::digitalRead allways returns 0

[Tim Walter]

Hi

i use my raspberry with a PiFace.
&HiPi::Wiring::digitalWrite($PIN,$VAL)
does work fine
but reading does allways returns "0".

use HiPi::Wiring qw( :wiring );
if (&HiPi::Wiring::wiringPiSetupPiFace() == -1){ exit(1);}
while(1) {
  for my $PIN (0..3) {
     print $PIN." ".&HiPi::Wiring::digitalRead($PIN)."\n";
  }
  sleep(1);
}

i tried WiringPi/examples/piface.c and it works.