Replying to myself...
The fix is to use -l instead of -L:
--- detectloader.orig 2003-11-11 13:36:14.000000000 -0800
+++ detectloader 2003-11-11 13:32:48.000000000 -0800
@@ -124,6 +124,6 @@
$return = $1 if m|^boot=(\S*)$| and not $return;
}
close F;
- $return = readlink($return) if -L $return;
+ $return = readlink($return) if -l $return;
return $return;
}
-o-
kk1
> Just to put a subject on this thread.
> > # detectloader
> > Can't call method "L" without a package or object reference at
> > /usr/sbin/detectloader line 127.
> >
> > line 127 is:
> >
> > $return = readlink($return) if -L $return;
> >
> > broken with new perl?
> > -o-
> > kk1
> >
>
