From fe39cd452b9763064e270fce2cbe5b73b5585568 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 8 Nov 2004 09:24:54 +0000
Subject: [PATCH] bypass plandata warning; we're accessing it on purpose

---
 FS/FS/part_pkg.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 5063936a9..d7cc3cb34 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -2,7 +2,7 @@ package FS::part_pkg;
 
 use strict;
 use vars qw( @ISA %freq %plans $DEBUG );
-use Carp qw(cluck);
+use Carp qw(carp cluck);
 use Tie::IxHash;
 use FS::Conf;
 use FS::Record qw( qsearch qsearchs dbh dbdef );
@@ -462,7 +462,7 @@ sub option {
   } );
   return $part_pkg_option->optionvalue if $part_pkg_option;
   my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); }
-                     split("\n", $self->plandata );
+                     split("\n", $self->get('plandata') );
   return $plandata{$opt} if exists $plandata{$opt};
   cluck "Package definition option $opt not found in options or plandata!\n";
   '';
-- 
2.11.0