Type1 importing not working

[AntonioFasano]

In function extrafont:::type1_import, the line

pfbdata <- data.frame(fontfile = pfbfile, base = sub("\\.pf?$", 
    "", basename(pfbfile)))

(to remove the pfb/pfa extension) does not work. The regex should be \\.pf.$ or \\.pf(a|b)$

This seems a regression from the previous version, when only pfb extensions were used.