Select Code to Download

#!/usr/bin/perl -w
#---AUTOPRAGMASTART---
...
} else {
    print "***** FAIL *****\n";
}

diff -rupN Authen-Radius-0.20_old/Radius.pm Authen-Radius-0.20/Radius.
+pm
--- Authen-Radius-0.20_old/Radius.pm    2012-03-18 20:17:49.313819745 
++0100
...
        $dict_vendor_name{$vendor_name}{'id'} : 'not defined';
    return $vendor_id;
     }

diff -rupN RADIUS-1.0_old/RADIUS/Packet.pm RADIUS-1.0/RADIUS/Packet.pm
--- RADIUS-1.0_old/RADIUS/Packet.pm 2012-03-18 19:37:52.083326134 +010
+0
...
     my $val = &{$unpacker{$dict->attr_numtype($type)}}($value, $type)
+;
     $self->set_attr($dict->attr_name($type), $val);
     substr($attrdat, 0, $length) = "";

#!/usr/bin/perl -w
#---AUTOPRAGMASTART---
...
);

$server->run();

package Rader;
#---AUTOPRAGMASTART---
...
}

1;

package OATHusers;
#---AUTOPRAGMASTART---
...


1;