- $m->callRefType = ord($cCallRef{0}) >> 7;
- $nCallRef = ord($cCallRef{0}) & 127;
- if ($crLen > 1) {
- $nCallRef = ord($cCallRef{1}) + ($nCallRef << 8);
- if ($crLen > 2) {
- $nCallRef = ord($cCallRef{2}) + ($nCallRef << 8);
+ if ($crLen > 0) {
+ $m->callRefType = ord($cCallRef{0}) >> 7;
+ $nCallRef = ord($cCallRef{0}) & 127;
+ if ($crLen > 1) {
+ $nCallRef = ord($cCallRef{1}) + ($nCallRef << 8);
+ if ($crLen > 2) {
+ $nCallRef = ord($cCallRef{2}) + ($nCallRef << 8);
+ }