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