doit("rm", "-f", "$TMP/DEBIAN/shlibs");
- open (FIND, "find $TMP -xtype f -name '*.so*' |");
+ open (FIND, "find $TMP -xtype f -name '*.so.*' |");
while (<FIND>) {
chomp;
- ($library, $major)=m#.*/(.*)\.so\.(\d*)\.?#;
+ # The second evil regexp is for db3, whose author should
+ # be shot.
+ if (m#.*/(.*)\.so\.(\d*)\.?# || m#.*/(.*)-(\S+)\.so$#) {
+ $library = $1;
+ $major = $2;
+ }
if (defined($dh{M_PARAMS}) && $dh{M_PARAMS} ne '') {
$major=$dh{M_PARAMS};
}