The name of a symlink to a block device under /sys/devices/.../ideX/X.X/
varies between various 2.6 kernels. Earlier versions use name "block" while
later (circa 2.6.16-rc1) use "block:hdX" format. This patch adds support for
both formats by first globbing "block*" in the directory and thus resolving the
real name of the symlink instead of using hard-coded name that only works in
the former case.

Index: yaird/perl/IdeDev.pm
===================================================================
--- yaird.orig/perl/IdeDev.pm	2006-01-26 00:15:49.000000000 +0200
+++ yaird/perl/IdeDev.pm	2006-03-12 18:48:12.000000000 +0200
@@ -49,7 +49,12 @@
 	$self->SUPER::fill();
 	$self->takeArgs ('path');
 	my $path = $self->path;
-	my $link = readlink ("$path/block");
+	my $block = "$path/block";
+	my @link = <$block*>;
+	if (scalar @link != 1) {
+		Base::fatal ("no suitable candidate link to block device found in $path");
+	}
+	my $link = readlink (shift @link);
 	if (! defined ($link)) {
 		Base::fatal ("no link to block device in $path");
 	}