Chris Knipe <mailto:[EMAIL PROTECTED]> wrote:
:
: i.e.
: $RAD_REPLY{'Recv-Limit'} = "20971520";
: $RAD_REPLY{'Xmit-Limit'} = "20971520";
: works.
: $RAD_REPLY{'Recv-Limit'} = $BytesAvail - $BytesUsed;
: $RAD_REPLY{'Xmit-Limit'} = $BytesAvail - $BytesUsed;
: doesn't work.
Works for me:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper 'Dumper';
my( $BytesAvail, $BytesUsed ) = (20971521, 1);
{
my %RAD_REPLY;
$RAD_REPLY{'Recv-Limit'} = "20971520";
$RAD_REPLY{'Xmit-Limit'} = "20971520";
print Dumper \%RAD_REPLY;
}
{
my %RAD_REPLY;
$RAD_REPLY{'Recv-Limit'} = $BytesAvail - $BytesUsed;
$RAD_REPLY{'Xmit-Limit'} = $BytesAvail - $BytesUsed;
print Dumper \%RAD_REPLY;
}
__END__
: So, what am I doing wrong?
Probably something you are not showing us.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
