Tree - rpms/perl - CentOS Git server

Blob History Raw

		fb6d68	`diff -up a/x2p/find2perl.PL b/x2p/find2perl.PL`
		fb6d68	`--- a/x2p/find2perl.PL 2010-12-30 03:07:17.000000000 +0100`
		fb6d68	`+++ b/x2p/find2perl.PL 2012-05-29 10:18:11.697683643 +0200`
		fb6d68	`@@ -681,7 +681,8 @@ sub tab () {`
		fb6d68	`sub fileglob_to_re ($) {`
		fb6d68	`my $x = shift;`
		fb6d68	`$x =~ s#([./^\$()+])#\\$1#g;`
		fb6d68	`- $x =~ s#([?*])#.$1#g;`
		fb6d68	`+ $x =~ s#\#.#g;`
		fb6d68	`+ $x =~ s#\?#.#g;`
		fb6d68	`"^$x\\z";`
		fb6d68	`}`
		fb6d68