On Wed, Jun 04, 2003 at 03:29:42AM +0800, R.I.P. Deaddog wrote:
Yup, probably you're true; the regex matching of "use ....." is not
perfect. Can you try the attached patch on perl.req, and check perl dep
again?
what about skipping here-docs as we skip documentation?
(yes, that's messy but since perl allows you to nest heredocs....)
rgrds,
L.
--- /usr/lib/rpm/perl.req 2003-05-13 17:07:19.000000000 +0200
+++ perl.req 2003-06-03 22:46:07.000000000 +0200
@@ -93,6 +93,13 @@
if ( (m/^=(over)/) .. (m/^=(back)/) ) {
next;
}
+
+ # skip heredocs
+ if ( (m/.*<<\s*[\"\']?(\w+)[\"\']?\s*[,\);]/) .. (m/^$tarocco$/) ) {
+ if (m/.*<<\s*[\"\']?(\w+)[\"\']?\s*[,\);]/) { $tarocco=$1 }
+ next;
+ }
+ $tarocco="";
# skip the data section
if (m/^__(DATA|END)__$/) {
--
Luca Berra -- [EMAIL PROTECTED]
Communication Media & Services S.r.l.
/"\
\ / ASCII RIBBON CAMPAIGN
X AGAINST HTML MAIL
/ \
