[ns] Implementation of Black-hole attack against AODV protocol in NS2

[basant subba]

Hello everyone
I am trying to implement a blackhole attack in AODV protocol in NS2(version
2.35). After making all the necessary changes in ns-lib.tcl,
ns-default.tcl, ns-packet.tcl, cmu-trace.cc, priqueue.cc and Makefile, when
I ran my tcl script it threw this error.

(_o14 cmd line 1)
    invoked from within
"_o14 cmd addr"
    invoked from within
"catch "$self cmd $args" ret"
    invoked from within
"if [catch "$self cmd $args" ret] {
set cls [$self info class]
global errorInfo
set savedInfo $errorInfo
error "error when calling class $cls: $args" $..."
    (procedure "_o14" line 2)
    (SplitObject unknown line 2)
    invoked from within
"_o14 addr"
    ("eval" body line 1)
    invoked from within
"eval $node addr $args"
    ("default" arm line 2)
    invoked from within
"switch -exact $routingAgent_ {
DSDV {
set ragent [$self create-dsdv-agent $node]
}
DSR {
$self at 0.0 "$node start-dsr"
}
AODV {
set ragent [$self cre..."
    (procedure "_o3" line 14)
    (Simulator create-wireless-node line 14)
    invoked from within
"_o3 create-wireless-node"
    ("eval" body line 1)
    invoked from within
"eval $self create-wireless-node $args"
    (procedure "_o3" line 23)
    (Simulator node line 23)
    invoked from within
"$ns_ node"
    ("for" body line 2)
    invoked from within
"for {set i 0} {$i < $val(nn) } {incr i} {
        set node_($i) [$ns_ node]
        $node_($i) random-motion 0        ;# disable random motion
    }"
    (file "simple-wireless.tcl" line 93)

Has any1 else encountered this problem while implementing a new protocol?
If anyone knows how to fix this problem please help. Thanks and Regards.
CHEERS...!!