From owner-freebsd-ports-bugs@FreeBSD.ORG Mon Jul 4 20:20:08 2011 Return-Path: Delivered-To: freebsd-ports-bugs@hub.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id 48D991065675 for ; Mon, 4 Jul 2011 20:20:08 +0000 (UTC) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (freefall.freebsd.org [IPv6:2001:4f8:fff6::28]) by mx1.freebsd.org (Postfix) with ESMTP id 1FC578FC1E for ; Mon, 4 Jul 2011 20:20:08 +0000 (UTC) Received: from freefall.freebsd.org (localhost [127.0.0.1]) by freefall.freebsd.org (8.14.4/8.14.4) with ESMTP id p64KK7Tx048127 for ; Mon, 4 Jul 2011 20:20:07 GMT (envelope-from gnats@freefall.freebsd.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.14.4/8.14.4/Submit) id p64KK7SS048126; Mon, 4 Jul 2011 20:20:07 GMT (envelope-from gnats) Resent-Date: Mon, 4 Jul 2011 20:20:07 GMT Resent-Message-Id: <201107042020.p64KK7SS048126@freefall.freebsd.org> Resent-From: FreeBSD-gnats-submit@FreeBSD.org (GNATS Filer) Resent-To: freebsd-ports-bugs@FreeBSD.org Resent-Reply-To: FreeBSD-gnats-submit@FreeBSD.org, "B.Euler" Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id 03B171065673 for ; Mon, 4 Jul 2011 20:15:45 +0000 (UTC) (envelope-from nobody@FreeBSD.org) Received: from red.freebsd.org (red.freebsd.org [IPv6:2001:4f8:fff6::22]) by mx1.freebsd.org (Postfix) with ESMTP id CDE248FC22 for ; Mon, 4 Jul 2011 20:15:44 +0000 (UTC) Received: from red.freebsd.org (localhost [127.0.0.1]) by red.freebsd.org (8.14.4/8.14.4) with ESMTP id p64KFiSh001217 for ; Mon, 4 Jul 2011 20:15:44 GMT (envelope-from nobody@red.freebsd.org) Received: (from nobody@localhost) by red.freebsd.org (8.14.4/8.14.4/Submit) id p64KFiRZ001207; Mon, 4 Jul 2011 20:15:44 GMT (envelope-from nobody) Message-Id: <201107042015.p64KFiRZ001207@red.freebsd.org> Date: Mon, 4 Jul 2011 20:15:44 GMT From: "B.Euler" To: freebsd-gnats-submit@FreeBSD.org X-Send-Pr-Version: www-3.1 Cc: Subject: ports/158646: sysutils/flexbackup shows a perl deprecated warning with perl 5.12 X-BeenThere: freebsd-ports-bugs@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Ports bug reports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 04 Jul 2011 20:20:08 -0000 >Number: 158646 >Category: ports >Synopsis: sysutils/flexbackup shows a perl deprecated warning with perl 5.12 >Confidential: no >Severity: non-critical >Priority: low >Responsible: freebsd-ports-bugs >State: open >Quarter: >Keywords: >Date-Required: >Class: sw-bug >Submitter-Id: current-users >Arrival-Date: Mon Jul 04 20:20:07 UTC 2011 >Closed-Date: >Last-Modified: >Originator: B.Euler >Release: FreeBSD 8.1-RELEASE amd64 >Organization: - >Environment: System: FreeBSD server.local 8.1-RELEASE FreeBSD 8.1-RELEASE #0: Mon Jul 19 02:36:49 UTC 2010 root@mason.cse.buffalo.edu:/usr/obj/usr/src/sys/GENERIC amd64 >Description: The port sysutils/flexbackup shows a perl deprecated warning when perl version 5.12 is used. I have recently updated to 5.12 an noticed this warning when running flexbackup: defined(%hash) is deprecated at /usr/local/bin/flexbackup line 1053. (Maybe you should just omit the defined()?) defined(%hash) is deprecated at /usr/local/bin/flexbackup line 4885. (Maybe you should just omit the defined()?) >How-To-Repeat: * Install flexbackup from ports * update to perl-1.12 (if not already installed) * call flexbackup like "flexbackup -dir /tmp -device /usr/home >Fix: Based on this patch http://sources.gentoo.org/cgi-bin/viewvc.cgi/gentoo-x86/app-backup/flexbackup/files/flexbackup-1.2.1-perl-5.12-deprecation-warning.patch?view=log a modification the latest flexbackup version 1.2.1_4 worked for me: --- flexbackup.~1~ 2010-10-09 13:19:27.633694860 +0200 +++ flexbackup 2010-10-09 13:21:52.396818511 +0200 @@ -133,6 +133,9 @@ # tar has a limit of this many chars in its volume label $::tar_max_label = 99; +# Define the prune hash to avoid warnings with perl 5.12 +use vars qw( %prune ); + # Get commandline flags %::opt = (); if (! &::GetOptions(\%::opt, @@ -1050,6 +1053,6 @@ } else { $prunekey = $dir; } - if (defined(%{$::prune{$prunekey}})) { + if (defined($prune{$prunekey})) { &log("| NOTE: \$prune is ignored for type=dump"); } @@ -4885,7 +4885,7 @@ $prunekey = $dir; } - if (defined(%{$::prune{$prunekey}})) { + if (defined($prune{$prunekey})) { my $rex; # FreeBSD needs -E (above) and no backslashes around the (|) chars if ($::uname =~ /FreeBSD/) { >Release-Note: >Audit-Trail: >Unformatted: