From 36799c8abcc700284e0a6d47f3587e3a0590cc3e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 19 Feb 2002 11:19:22 +0000
Subject: perl_checker: skip s///

---
 perl_checker | 7 ++++---
 1 file 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/#.*//;
 
-- 
cgit v1.2.1