Skip Menu |

This queue is for tickets about the DBI CPAN distribution.

Report information
The Basics
Id: 27948
Status: resolved
Priority: 0/
Queue: DBI

People
Owner: Nobody in particular
Requestors: at [...] altlinux.ru
Cc:
AdminCc:

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



Subject: [PATCH] dbiprof: fixed $prof and $opt_delete syntax
Date: Wed, 4 Jul 2007 00:16:22 +0400
To: bug-dbi [...] rt.cpan.org
From: Alexey Tourbin <at [...] altlinux.ru>
Global symbol "$prof" requires explicit package name at /usr/bin/dbiprof line 62. Global symbol "$opt_delete" requires explicit package name at /usr/bin/dbiprof line 64. --- dbiprof.PL | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/dbiprof.PL b/dbiprof.PL index 54be78a..36f4420 100644 --- a/dbiprof.PL +++ b/dbiprof.PL @@ -32,6 +32,7 @@ GetOptions( 'match=s' => \%match, 'exclude=s' => \%exclude, 'case-sensitive' => \$case_sensitive, + 'delete!' => \my $opt_delete, ) or exit usage(); sub usage { @@ -64,7 +65,7 @@ my @files = @ARGV ? @ARGV : ('dbi.prof'); # instantiate ProfileData object my $prof = eval { - $prof = DBI::ProfileData->new( + DBI::ProfileData->new( Files => \@files, DeleteFiles => $opt_delete, ); -- 1.5.1.2.GIT
Applied. Thanks!