$EPREFIX/usr/bin/epm @14 '(.+?)'. # name '-(\d+(?:\.\d+)*\w*)'. # version, eg 1.23.4a '((?:(?:_alpha|_beta|_pre|_rc)\d*)?)'. # special suffix - '((?:-r\d+)?)$'; # revision, eg r12 + '((?:-r\d+)?(?:\.\d+)?)$'; # revision, eg r12 my $root = '/'; my %opt = ( 'dbpath' => \$dbpath, @270 die "CONFIG_PROTECT is empty" unless @CONFIG_PROTECT; my ($confprotre) = join '|', @CONFIG_PROTECT; @files = grep { - (split ' ', $_, 2)[1] =~ /^/opt/portage($confprotre)/o } @files; + (split ' ', $_, 2)[1] =~ m!^/opt/portage($confprotre)!o } @files; } # Trim @files if doc files requested
thanks, I applied those!