[email protected]
[Top] [All Lists]

Bug#312004: marked as forwarded (libapache-reload-perl: Can't "use base"

Subject: Bug#312004: marked as forwarded libapache-reload-perl: Can't "use base" on multiple packages using Apache::Reload
From: Debian Bug Tracking System
Date: Mon, 12 Sep 2005 18:33:13 -0700
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 
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 [] (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 [])
        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 [])
        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
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-Status: No, hits=-3.0 required=4.0 tests=BAYES_00 autolearn=no 

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


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.



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";


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

<Prev in Thread] Current Thread [Next in Thread>
  • Bug#312004: marked as forwarded (libapache-reload-perl: Can't "use base" on multiple packages using Apache::Reload), Debian Bug Tracking System <=