-sub pagespec_contentless ($) {
- my $spec=shift;
-
- while ($spec=~m{
- (\w+)\([^\)]*\) # only match pagespec functions
- }igx) {
- # only glob and internal can be matched contentless
- # (first approximation)
- return 0 if $1 ne "glob" && $1 ne "internal";
- }
-
- return 1;
-}
-