Your message dated Tue, 13 Sep 2005 03:30:55 +0200
with message-id <[EMAIL PROTECTED]>
has caused the Debian Bug report #312004,
regarding libapache-reload-perl: Can't "use base" on multiple packages using 
Apache::Reload
to be marked as having been forwarded to the upstream software
author(s) Matt Sergeant <[EMAIL PROTECTED]>.

(NB: If you are a system administrator and have no idea what I am
talking about this indicates a serious mail system misconfiguration
somewhere.  Please contact me immediately.)

Debian bug tracking system administrator
(administrator, Debian Bugs database)

---------------------------------------
Received: (at 312004-forwarded) by bugs.debian.org; 13 Sep 2005 01:30:51 +0000
>From [EMAIL PROTECTED] Mon Sep 12 18:30:51 2005
Return-path: <[EMAIL PROTECTED]>
Received: from mail.irb.hr [161.53.22.8] (UNKNOWN)
        by spohr.debian.org with esmtp (Exim 3.36 1 (Debian))
        id 1EEzdL-0002XF-00; Mon, 12 Sep 2005 18:30:51 -0700
Received: from diziet.irb.hr (diziet.irb.hr [161.53.22.31])
        by mail.irb.hr (8.13.3/8.13.3/Debian-6) with ESMTP id j8D1UlwC026256;
        Tue, 13 Sep 2005 03:30:47 +0200
Received: from diziet.irb.hr (localhost [127.0.0.1])
        by diziet.irb.hr (8.13.4/8.13.4/Debian-4) with ESMTP id j8D1Utj6013030;
        Tue, 13 Sep 2005 03:30:55 +0200
Received: (from [EMAIL PROTECTED])
        by diziet.irb.hr (8.13.4/8.13.4/Submit) id j8D1Ut7n013028;
        Tue, 13 Sep 2005 03:30:55 +0200
Date: Tue, 13 Sep 2005 03:30:55 +0200
From: Matej Vela <[EMAIL PROTECTED]>
To: Matt Sergeant <[EMAIL PROTECTED]>
Cc: [EMAIL PROTECTED]
Subject: Can't "use base" on multiple packages using Apache::Reload
Message-ID: <[EMAIL PROTECTED]>
References: <[EMAIL PROTECTED]>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="MPkR1dXiUZqK+927"
Content-Disposition: inline
In-Reply-To: <[EMAIL PROTECTED]>
User-Agent: Mutt/1.5.10i
X-Scanned-By: MIMEDefang 2.51 on 161.53.22.8
Delivered-To: [EMAIL PROTECTED]
X-Spam-Checker-Version: SpamAssassin 2.60-bugs.debian.org_2005_01_02 
        (1.212-2003-09-23-exp) on spohr.debian.org
X-Spam-Level: 
X-Spam-Status: No, hits=-3.0 required=4.0 tests=BAYES_00 autolearn=no 
        version=2.60-bugs.debian.org_2005_01_02


--MPkR1dXiUZqK+927
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

Hello,

Debian has received the following bug report:

On Sat, Jun 04, 2005 at 03:04:59PM -0400, Frederic Briere wrote:
> Package: libapache-reload-perl
> Version: 0.07-3
> Severity: normal
> 
> A lot of head-scratching went into this one.  Basically, if you try:
> 
>   use base qw(Foo Bar);
> 
> Where both Foo and Bar use Apache::Reload, you'll get:
> 
>   Can't multiply inherit %FIELDS
> 
> The problem is with register_module() trying to see if there's anything
> in %Foobar::FIELDS.  This has the side effect of actually creating the
> glob entry *Foobar::FIELDS{HASH}, which leads base.pm to believe that
> we're actually using pseudo-hashes.  Hilarity ensues.
> 
> To prevent this unpleasantness, register_module() should check whether
> or not the glob HASH entry exists, and avoid touching it if it doesn't.

Preliminary patch attached.  Please keep the Cc so that our Bug Tracking
System records your reply.

Thanks!

Matej

--MPkR1dXiUZqK+927
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="Reload.pm.diff"

--- Reload.pm.orig      2001-04-22 20:09:59.000000000 +0200
+++ Reload.pm   2005-09-13 03:29:11.000000000 +0200
@@ -40,7 +40,7 @@
     }
     
     no strict 'refs';
-    if (%{"${package}::FIELDS"}) {
+    if (exists ${"${package}::"}{FIELDS}) {
         $UndefFields{$module} = "${package}::FIELDS";
     }
 }
@@ -87,7 +87,7 @@
                         $package =~ s/\.pm$//;
                         no strict 'refs';
 #                        warn "checking for FIELDS on $package\n";
-                        if (%{"${package}::FIELDS"}) {
+                        if (exists ${"${package}::"}{FIELDS}) {
 #                            warn "found fields in $package\n";
                             $UndefFields{$match} = "${package}::FIELDS";
                         }

--MPkR1dXiUZqK+927--


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to