diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-02-19 11:19:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-02-19 11:19:22 +0000 |
| commit | 36799c8abcc700284e0a6d47f3587e3a0590cc3e (patch) | |
| tree | 35e1e0b24af83c17d7dbb9519c887d4922bc28b3 | |
| parent | 4569bca6494182143b7ddde49aa81fcf8c2ef1b6 (diff) | |
| download | perl_checker-36799c8abcc700284e0a6d47f3587e3a0590cc3e.tar perl_checker-36799c8abcc700284e0a6d47f3587e3a0590cc3e.tar.gz perl_checker-36799c8abcc700284e0a6d47f3587e3a0590cc3e.tar.bz2 perl_checker-36799c8abcc700284e0a6d47f3587e3a0590cc3e.tar.xz perl_checker-36799c8abcc700284e0a6d47f3587e3a0590cc3e.zip | |
perl_checker: skip s///
| -rwxr-xr-x | perl_checker | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl_checker b/perl_checker index 1c2fc9e..7d565e6 100755 --- a/perl_checker +++ b/perl_checker @@ -49,9 +49,10 @@ if (/^\s*require\s+([\w:]+);/) { s/"[^"]*"//g; #" s/'[^']*'//g; #' -s/\bm\b(.)(.*?)\1//g; # m// operator -s|\(/.*?/|(|g; # m// operator -s{([!=]~|\bif\b)\s*/.*?/}{}g; +s/\bm\b(.)(.*?)\1//g; # m// operator: "m/re/", "m|re|", ... +s/\bs\b(.)(.*?)\1(.*?)\1//g; # s/// operator: "s/re/.../", "s|re|...|", ... +s|\(/.*?/|(|g; # m// operator: "(/re/" +s{([!=]~|\bif\b)\s*/.*?/}{}g; # m// operator: "if /re/", "=~ /re/", "!~ /re/" s/#.*//; |