+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;
+}
+