faubackup/src faubackup-find.in,1.2,1.3
Martin Waitz <[email protected]> Mon, 15 Mar 2004 22:26:02 +0000
| Newsgroups | gmane.comp.sysutils.backup.faubackup.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/faubackup/faubackup/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23261/src
Modified Files:
faubackup-find.in
Log Message:
make **/ match files in the current directory, too
patch by Wolfgang Kroworsch
Index: faubackup-find.in
===================================================================
RCS file: /cvsroot/faubackup/faubackup/src/faubackup-find.in,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** faubackup-find.in 11 Dec 2003 00:32:01 -0000 1.2
--- faubackup-find.in 15 Mar 2004 22:26:00 -0000 1.3
***************
*** 43,48 ****
$regexp =~ s/([^\?\*a-zA-Z0-9\/])/\\$1/g; # escape everything
$regexp =~ s/\?/./g;
! $regexp =~ s/\*\*/{}/g; # unescaped '{}' for '**'
! $regexp =~ s/\*/[^\/]*/g; # to not let '**' match here
$regexp =~ s/\{\}/.*/g;
}
--- 43,49 ----
$regexp =~ s/([^\?\*a-zA-Z0-9\/])/\\$1/g; # escape everything
$regexp =~ s/\?/./g;
! $regexp =~ s/\*\*/{}/g; # unescaped '{}' for '**'
! $regexp =~ s/\*/[^\/]*/g; # to not let '**' match here
! $regexp =~ s/^\{\}\//(?:.*\/)?/;# **/ at start matches .
$regexp =~ s/\{\}/.*/g;
}
-------------------------------------------------------
This SF.Net email is sponsored by: IBM Linux Tutorials
Free Linux tutorial presented by Daniel Robbins, President and CEO of
GenToo technologies. Learn everything from fundamentals to system
administration.http://ads.osdn.com/?ad_id=1470&alloc_id=3638&op=click