- Added the PkgLint::Util::match function that matches a string against a

  regular expression and saves the values of the volatile @- and @+ arrays.

1 files changed, 18 insertions, 2 deletions

diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl
index 5d55ae2529c..2524f55d8f8 100644
--- a/pkgtools/pkglint/files/pkglint.pl
+++ b/pkgtools/pkglint/files/pkglint.pl
@@ -1,5 +1,5 @@
 #! @PERL@
-# $NetBSD: pkglint.pl,v 1.485 2006/01/25 00:23:48 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.486 2006/01/26 23:05:49 rillig Exp $
 #
 
 # pkglint - static analyzer and checker for pkgsrc packages
@@ -43,7 +43,7 @@ BEGIN {
 	use Exporter;
 	use vars qw(@ISA @EXPORT_OK);
 	@ISA = qw(Exporter);
-	@EXPORT_OK = qw(array_to_hash false print_table true);
+	@EXPORT_OK = qw(array_to_hash false match print_table true);
 }
 
 use constant false	=> 0;
@@ -86,6 +86,22 @@ sub array_to_hash(@) {
 	return $result;
 }
 
+sub match($$) {
+	my ($s, $re) = @_;
+	my ($m);
+
+
+	if ($s !~ $re) {
+		return false;
+	}
+
+	$m = [];
+	foreach my $i (0 .. $#+) {
+		push(@{$m}, [$-[0], $+[0]]);
+	}
+	return $m;
+}
+
 #== End of PkgLint::Util ==================================================
 
 package PkgLint::Logging;