From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <thecrux@gmail.com>
X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on sa.int.altlinux.org
X-Spam-Level: 
X-Spam-Status: No, score=-2.1 required=5.0 tests=AWL,BAYES_00,
	DNS_FROM_OPENWHOIS, RCVD_IN_DNSWL_LOW,
	SPF_PASS autolearn=no version=3.2.5
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma;
	h=date:from:to:cc:subject:message-id:mail-followup-to:references
	:mime-version:content-type:content-disposition
	:content-transfer-encoding:in-reply-to;
	bh=kgO4UTP9+qGSQ/n4BrPgeLvkoUfNcaFnfr43MhZ6HPs=;
	b=D6yupbTbJJdyzQTv6kPiYPa03BlsoCdOxFxhbUNQk2SUrPbTXopokDHboCA7MNGU2Q
	OMy50G2w/BKYbQzCVRss91JRQrTQQTvUtO+zdh4uDR/Y6sTGZackHpo79eQpItlOUZHx
	dgyi12lzYN1C4nvQliLlaHzPQZdhrwNUGFpDQ=
Date: Wed, 3 Aug 2011 10:02:27 +0400
From: thecrux@gmail.com
To: Dubrovskiy Viacheslav <slava@tangramltd.com>
Message-ID: <20110803060227.GA4302@mail.truecrux.org>
Mail-Followup-To: Dubrovskiy Viacheslav <slava@tangramltd.com>,
	ALT Linux Team development discussions <devel@lists.altlinux.org>
References: <4E383645.4020200@tangramltd.com>
	<20110802190348.GA3224@mail.truecrux.org>
	<4E387A19.70309@tangramltd.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
In-Reply-To: <4E387A19.70309@tangramltd.com>
Cc: ALT Linux Team development discussions <devel@lists.altlinux.org>
Subject: Re: [devel] =?koi8-r?b?8M/Nz8fJ1MUg08/C0sHU2CAgIG15c3FsLW1tbQ==?=
X-BeenThere: devel@lists.altlinux.org
X-Mailman-Version: 2.1.12
Precedence: list
Reply-To: ALT Linux Team development discussions <devel@lists.altlinux.org>
List-Id: ALT Linux Team development discussions <devel.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/options/devel>,
	<mailto:devel-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/devel>
List-Post: <mailto:devel@lists.altlinux.org>
List-Help: <mailto:devel-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/devel>,
	<mailto:devel-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Wed, 03 Aug 2011 06:03:55 -0000
Archived-At: <http://lore.altlinux.org/devel/20110803060227.GA4302@mail.truecrux.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>

On Tue, Aug 02, 2011 at 06:28:41PM -0400, Dubrovskiy Viacheslav wrote:
> Спасибо.
> теперь там такое вылазит:
> 
> Bareword "main::MMM_PROTOCOL_VERSION" not allowed while "strict subs" in
> use at
> /usr/src/tmp/mysql-mmm-buildroot/usr/share/perl5/MMM/Agent/Agent.pm line 90.
> Bareword "main::MMM_PROTOCOL_VERSION" not allowed while "strict subs" in
> use at
> /usr/src/tmp/mysql-mmm-buildroot/usr/share/perl5/MMM/Agent/Agent.pm line 91.
> /usr/src/tmp/mysql-mmm-buildroot/usr/share/perl5/MMM/Agent/Agent.pm had
> compilation errors.

Константа MMM_PROTOCOL_VERSION определена в скрипте, который вызывает этот
модуль. Поэтому на этапе проверки синтаксиса модуля это ошибка, но при вызове 
из скрипта - всё будет работать. 
 
Для решения проблемы можно добавить префикс '&', т.е.
  &main::MMM_PROTOCOL_VERSION
используя тот факт, что все скалярные константы в perl на самом деле inline
процедуры.
 
Или, как вариант, выделить проблемный блок и указать в нём директиву
`no strict 'subs';` :
 
 
-
-   if ($version > main::MMM_PROTOCOL_VERSION) {
-       WARN "Version in command '$cmd_name' ($version) is greater than mine (", main::MMM_PROTOCOL_VERSION, ")"
-   }
+
+   {
+       no strict 'subs';
+       if ($version > main::MMM_PROTOCOL_VERSION) {
+           WARN "Version in command '$cmd_name' ($version) is greater than mine (", main::MMM_PROTOCOL_VERSION, ")"
+       }
+   }

-- 
Vladimir Lettiev aka crux ✉ theCrux@gmail.com