Changeset Navigation

Changeset 335

Timestamp:

02/01/2008 07:13:05 PM

Author:

toby

Message:

Require version 0.08 of Text::Glob

Files:

r329	r335
4	4	use strict;
5	5	use Config::Ini;
6		use Text::Glob;
	6	use Text::Glob 0.08;
7	7
8	8	###############################################################################
…	…
18	18
19	19	my ($enabled) = $config->get (['miscellany', 'enable-auto-props']);
20		if (defined $enabled && $enabled eq "yes")
21		{
	20	if (defined $enabled && $enabled eq "yes") {
22	21	my $autoprops_list = $config->get (['auto-props']);
23	22
24		# see http://subversion.tigris.org/servlets/ReadMsg?list=svn&msgNo=29642
25		# matches are performed in a case-insensitive manner
	23	# see http://subversion.tigris.org/servlets/ReadMsg?list=svn&msgNo=29642
	24	# matches are performed in a case-insensitive manner
26	25
27		my ($glob, $autoprops);
28		while (($glob, $autoprops) = each %{ $autoprops_list }) {
29		my $entry = ();
30		my $regex = Text::Glob::glob_to_regex_string($glob);
31		$entry->{glob} = qr/$regex/i;
32		$entry->{props} = $autoprops;
33		push @{$self->{entries}}, $entry;
34		}
	26	my ($glob, $autoprops);
	27	while (($glob, $autoprops) = each %{ $autoprops_list }) {
	28	my $entry = ();
	29	my $regex = Text::Glob::glob_to_regex_string($glob);
	30	$entry->{glob} = qr/$regex/i;
	31	$entry->{props} = $autoprops;
	32	push @{$self->{entries}}, $entry;
	33	}
35	34	}
36	35