FWIW: the patch is in the opposite direction.
On Apr 18, 2008, at 2:23 PM, Jim Li wrote:
> All
>
> Dash character '-' should be treated as a special character when
> being used in [] as a regular expression. add escape character '\'
> before '-' and add ':' which should be there.
>
> thanks
>
> jim
> --- system-tools-backends-1.4.2/share.pl.in 2008-04-18
> 14:03:08.648197000 +0800
> +++ system-tools-backends-1.4.2.pre-fix/share.pl.in 2008-04-18
> 13:47:26.816969000 +0800
> @@ -478,7 +478,7 @@
> my $access = $1;
> my $client = $2;
>
> - $client =~ /^([a-zA-Z0-9.\-:_...@\/]+)/;
> + $client =~ /^([a-za-z0-9.-...@\/]+)/;
> $pattern = $1;
> $pattern = "0.0.0.0/0" if $pattern eq "";
> foreach my $host (split(/:/, $pattern)) {
> @@ -519,7 +519,7 @@
> my $cinfo = &gst_share_nfs_client_info_new ();
> my $pattern;
>
> - $client =~ /^([a-zA-Z0-9.\-:_...@\/]+)/;
> + $client =~ /^([a-za-z0-9.-...@\/]+)/;
> $pattern = $1;
> $pattern = "0.0.0.0/0" if $pattern eq "";
> &gst_share_nfs_client_info_set_pattern ($cinfo, $pattern);
> @@ -763,7 +763,7 @@
> {
> my $opthash = { };
>
> - $client =~ /^([a-zA-Z0-9.\-:_...@\/]+)/;
> + $client =~ /^([a-za-z0-9.-...@\/]+)/;
> my $pattern = $1;
> $$chash{$pattern} = $opthash;
>
--------
Ginn Chen
Software Engineer, Browser Team
Sun Microsystems, Inc.
Phone: x82869 / +86-10-62673869
Fax: +86-10-62780969
