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 | da5dc35e1fe43773415fd505ee07280b8e31dc60 (patch) | |
| tree | 63a406a7daca5472667902b9fd5d0220a2fb0295 | |
| parent | 3a4b92f86d68bb30a377b5b720dfcb7c659d57f7 (diff) | |
| download | perl-MDK-Common-da5dc35e1fe43773415fd505ee07280b8e31dc60.tar perl-MDK-Common-da5dc35e1fe43773415fd505ee07280b8e31dc60.tar.gz perl-MDK-Common-da5dc35e1fe43773415fd505ee07280b8e31dc60.tar.bz2 perl-MDK-Common-da5dc35e1fe43773415fd505ee07280b8e31dc60.tar.xz perl-MDK-Common-da5dc35e1fe43773415fd505ee07280b8e31dc60.zip | |
perl_checker: skip s///
| -rw-r--r-- | perl-MDK-Common.spec | 5 | ||||
| -rwxr-xr-x | perl_checker | 7 |
2 files changed, 8 insertions, 4 deletions
diff --git a/perl-MDK-Common.spec b/perl-MDK-Common.spec index 277555b..9d3ff99 100644 --- a/perl-MDK-Common.spec +++ b/perl-MDK-Common.spec @@ -2,7 +2,7 @@ # do not change the version here, change in MDK/Common.pm.pl %define version THEVERSION -%define release 12mdk +%define release 13mdk %define perl_sitelib %(eval "`perl -V:installsitelib`"; echo $installsitelib) Summary: Various simple functions @@ -50,6 +50,9 @@ rm -rf $RPM_BUILD_ROOT # MODIFY IN THE CVS: cvs.mandrakesoft.com:/cooker soft/perl-MDK-Common %changelog +* Tue Feb 19 2002 Pixel <pixel@mandrakesoft.com> 1.0.2-13mdk +- perl_checker: skip s/// + * Sat Feb 16 2002 Pixel <pixel@mandrakesoft.com> 1.0.2-12mdk - MDK/Common/System.pm (update_gnomekderc): rework it, make it work in all possible case 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/#.*//; |