diff options
| author | jeff <jeff> | 2008-03-14 17:30:13 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2008-03-14 17:30:13 +0000 |
| commit | 2f021ca696a8874fa77eaf014d51ad8da2003f7f (patch) | |
| tree | 73294470c3a18a7534015bf54434a3a1b3142d15 | |
| parent | add9ee4e814c0b374b17f8bdac03a3a7e450da56 (diff) | |
insist on Net::Prizm 0.04
| -rw-r--r-- | FS/FS/part_export/prizm.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/part_export/prizm.pm b/FS/FS/part_export/prizm.pm index 754d428cd..75b10a763 100644 --- a/FS/FS/part_export/prizm.pm +++ b/FS/FS/part_export/prizm.pm @@ -88,7 +88,7 @@ EOT sub prizm_command { my ($self,$namespace,$method) = (shift,shift,shift); - eval "use Net::Prizm qw(CustomerInfo PrizmElement);"; + eval "use Net::Prizm 0.04 qw(CustomerInfo PrizmElement);"; die $@ if $@; my $prizm = new Net::Prizm ( @@ -104,7 +104,7 @@ sub prizm_command { sub queued_prizm_command { # subroutine my( $url, $user, $password, $namespace, $method, @args ) = @_; - eval "use Net::Prizm qw(CustomerInfo PrizmElement);"; + eval "use Net::Prizm 0.04 qw(CustomerInfo PrizmElement);"; die $@ if $@; my $prizm = new Net::Prizm ( @@ -500,7 +500,7 @@ sub queue_statuschange { sub statuschange { # subroutine my( $url, $user, $password, $method, $mac_addr, @args) = @_; - eval "use Net::Prizm qw(CustomerInfo PrizmElement);"; + eval "use Net::Prizm 0.04 qw(CustomerInfo PrizmElement);"; die $@ if $@; my $prizm = new Net::Prizm ( |