added writesize
[tridge/junkcode.git] / t3.pl
1 #!/usr/bin/perl -w
2
3
4 my($base)="/usr/cvs/nas/linux";
5
6 my($s)="/usr/cvs/nas/linux/foo/bar";
7
8 if ($s =~ /$base/) {
9         print "matches\n";
10 }