diff options
| author | jeff <jeff> | 2008-03-14 17:30:32 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2008-03-14 17:30:32 +0000 |
| commit | df82b9e2945a50797d72ea42d6c75f869e6c5959 (patch) | |
| tree | c1d1cbd358efb6c25fd9966a5f4f2b8477fa3f7b /FS/FS/part_export/prizm.pm | |
| parent | baaf20963687533353e65917554ebf968dbc0f8b (diff) | |
insist on Net::Prizm 0.04
Diffstat (limited to 'FS/FS/part_export/prizm.pm')
| -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 754d428..75b10a7 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 ( |