Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Perl-Critic CPAN distribution.

Report information
The Basics
Id: 82415
Status: new
Priority: 0/
Queue: Perl-Critic

Owner: Nobody in particular
Requestors: carnil [...]

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

From salvatore.bonaccorso [...] Fri Jan 4 16: 23:57 2013
MIME-Version: 1.0
X-Spam-Status: No, score=-5.596 tagged_above=-99.9 required=10 tests=[AWL=0.524, BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_HI=-5, SPF_NEUTRAL=0.779] autolearn=ham
Content-Disposition: inline
X-Spam-Flag: NO
Content-Type: multipart/signed; micalg=pgp-sha512; protocol="application/pgp-signature"; boundary="XF85m9dhOBO43t/C"
Message-ID: <20130104212343.GA920 [...]>
X-Received: by with SMTP id m43mr146779222een.44.1357334626292; Fri, 04 Jan 2013 13:23:46 -0800 (PST)
X-Virus-Scanned: Debian amavisd-new at
X-Spam-Score: -5.596
Received: from localhost (localhost []) by (Postfix) with ESMTP id 8C992240BBF for <cpan-bug+Perl-Critic [...]>; Fri, 4 Jan 2013 16:23:57 -0500 (EST)
Received: from ([]) by localhost ( []) (amavisd-new, port 10024) with ESMTP id ruP0RDUQy-Gg for <cpan-bug+Perl-Critic [...]>; Fri, 4 Jan 2013 16:23:55 -0500 (EST)
Received: from ( []) by (Postfix) with SMTP id E0F75240B2E for <bug-Perl-Critic [...]>; Fri, 4 Jan 2013 16:23:54 -0500 (EST)
Received: (qmail 9013 invoked by uid 103); 4 Jan 2013 21:23:54 -0000
Received: from ( by with QMQP; 4 Jan 2013 21:23:54 -0000
Received: from (HELO ( by (qpsmtpd/0.84/v0.84-167-g4ed6cab) with ESMTP; Fri, 04 Jan 2013 13:23:49 -0800
Received: by with SMTP id h11so6821837eaa.34 for <bug-Perl-Critic [...]>; Fri, 04 Jan 2013 13:23:46 -0800 (PST)
Received: from elende ( []) by with ESMTPS id 44sm113044146eek.0.2013. (version=TLSv1/SSLv3 cipher=OTHER); Fri, 04 Jan 2013 13:23:45 -0800 (PST)
Authentication-Results: (amavisd-new); dkim=pass header.i= [...]
Delivered-To: cpan-bug+Perl-Critic [...]
User-Agent: Mutt/1.5.21 (2010-09-15)
Subject: uninitialized values on particular sample file
Return-Path: <salvatore.bonaccorso [...]>
X-RT-Mail-Extension: perl-critic
X-Original-To: cpan-bug+Perl-Critic [...]
Dkim-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;; s=20120113; h=x-received:sender:date:from:to:subject:message-id:mime-version :content-type:content-disposition:user-agent; bh=LERAfGiFi9lslRpAq76/ubD5DzfG4gcjyLVN+oUzfPQ=; b=Is+yT3x6jxw8FUHLVUGRRRaic1ZhFyi1CZGota+jOLXC/M/QBdaqiLGUeMdoI/WmMr OPaP+w2pYfJE9qtzsbGnapIoeiL2sisHk5k+HcHhxr92G+dE+okMOnCPQnifq2gd6+li y/+JmG2BJQUCTPcVoTGWSF4zfEqXgnOGV9qiC5MFdXHKqxo1qBJDoh/hXDcM3sTq6msy VEjECO7EDTkFOxLQtYDuPTS79LvG20nYC29pufZFctYXZNnoFJeKZ27fOz/xXtHGOmzu OrXo8VeAU1jq3LhjlnfismVNSOvsvqnnOA0+gt+WxGXfxOJKCjc08dErldwZ1Kl/L8Pg ZILA==
Sender: Salvatore Bonaccorso <salvatore.bonaccorso [...]>
Date: Fri, 4 Jan 2013 22:23:43 +0100
To: bug-Perl-Critic [...]
From: Salvatore Bonaccorso <carnil [...]>
Content-Length: 0
Content-Type: multipart/mixed; boundary="CE+1k2dSO48ffgeK"
Content-Disposition: inline
Content-Length: 0
content-type: text/plain; charset="utf-8"
Content-Disposition: inline
X-RT-Original-Encoding: us-ascii
Content-Length: 2363
Download (untitled) / with headers
text/plain 2.3k
Hi I'm forwarding the bugreport reported in Debian by Guillem Jover: ----cut---------cut---------cut---------cut---------cut---------cut----- Hi! While running perlcritic over the dpkg code base I've found a file perlcritic trips over. As I'm fixing issues, the file might not show those when it gets looked at so here's a reference to a specific git blob object: <;a=blob;f=scripts/;h=082664140fec005917d58e7aa9866de63dfc0330;hb=HEAD> I seem to have tracked the issue down to being triggered by the '%r' verbose format. To reproduce, with an empty .perlcriticrc, run: $ perlcritic -1 --verbose "%l:%c near '%r'\n" Notice the empty '%r' expansions. Thanks, Guillem ----cut---------cut---------cut---------cut---------cut---------cut----- Attached is a reduced example, where the uninitialized values warning are appearing too: perlcritic -3 --verbose "line %l, column %c near '%r'.\n" Use of uninitialized value $min_width in numeric gt (>) at /usr/share/perl5/String/ line 51. Use of uninitialized value $replength in numeric gt (>) at /usr/share/perl5/String/ line 51. Use of uninitialized value $max_width in numeric gt (>) at /usr/share/perl5/String/ line 56. Use of uninitialized value $replength in numeric gt (>) at /usr/share/perl5/String/ line 56. Use of uninitialized value $replength in subtraction (-) at /usr/share/perl5/String/ line 67. Use of uninitialized value $min_width in subtraction (-) at /usr/share/perl5/String/ line 67. Use of uninitialized value $replacement in concatenation (.) or string at /usr/share/perl5/String/ line 67. line 11, column 9 near 'warn '$bar defined';'. line 14, column 25 near ''. line 16, column 5 near 'warn 'undefined value for $foo';'. where the is ----cut---------cut---------cut---------cut---------cut---------cut----- #!/usr/bin/perl use strict; use warnings; my $foo = '1:2'; my $bar; if (defined $foo) { if (defined $bar) { warn '$bar defined'; } (my $baz = $foo) =~ s/^\d+://; } else { warn 'undefined value for $foo'; } ----cut---------cut---------cut---------cut---------cut---------cut----- (p.s.: know might be shown better) Regards, Salvatore
Content-Type: text/x-perl; charset=us-ascii
content-disposition: attachment; filename=""
X-RT-Original-Encoding: us-ascii
Content-Length: 234
text/x-perl 234b

Message body is not shown because sender requested not to inline it.

Content-Description: Digital signature
content-type: application/pgp-signature; name="signature.asc"
Content-Length: 836
Download signature.asc
application/pgp-signature 836b

Message body not shown because it is not plain text.

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to