[Midnightbsd-cvs] mports: mporter: fix a few bugs with syncdir.

[ctriv at midnightbsd.org]

Log Message:
-----------
fix a few bugs with syncdir.

Modified Files:
--------------
    mports/Tools/scripts:
        mporter (r1.2 -> r1.3)

-------------- next part --------------
Index: mporter
===================================================================
RCS file: /home/cvs/mports/Tools/scripts/mporter,v
retrieving revision 1.2
retrieving revision 1.3
diff -L Tools/scripts/mporter -L Tools/scripts/mporter -u -r1.2 -r1.3
--- Tools/scripts/mporter
+++ Tools/scripts/mporter
@@ -252,14 +252,16 @@
 		}
 		
 		
-		if (m/SUBDIR\s*\+?=\s*([\.\w+-]+)/) {
+		my $linere = qr/SUBDIR\s*\+?=\s*(\S+)/;
+		
+		if (m/$linere/) {
 			push(@{$self->{subdirs}}, $1);
 		} else {
 			die "Couldn't match first subdir.";
 		}
 		
 		while (<$fh>) {
-			last unless m/SUBDIR\s*\+?=\s*([\.\w-]+)/;
+			last unless m/$linere/;
 			push(@{$self->{subdirs}}, $1);
 		}