do subname() is deprecated, so update this hunk of test dating from perl 1.
[p5sagit/p5-mst-13.2.git] / apollo /
drwxr-xr-x ..
drwxr-xr-x netinet