-package MultiStruct;
+package gLite::LB::MultiStruct;
use gLite::LB::StructField;
$f->{pad} = $fname;
}
else {
- my $f = new StructField $fname,$ftype,$comment,$.;
+ my $f = new gLite::LB::StructField $fname,$ftype,$comment,$.;
$f->{ptype} = $self->{type};
$self->addField($f);
}
my $indent = '';
-$event = new MultiStruct;
-$status = new MultiStruct;
+$event = new gLite::LB::MultiStruct;
+$status = new gLite::LB::MultiStruct;
sub gen {
local $_ = shift;
while (<>) {
chomp;
if (/^\@\@\@LANG: (\S+)$/) {
- $StructField::lang = $1;
+ $gLite::LB::StructField::lang = $1;
next;
}