Full namespace declarations for rpm AutoReqProv, SB #78801.
authorFrantišek Dvořák <valtri@civ.zcu.cz>
Tue, 8 Mar 2011 21:29:53 +0000 (21:29 +0000)
committerFrantišek Dvořák <valtri@civ.zcu.cz>
Tue, 8 Mar 2011 21:29:53 +0000 (21:29 +0000)
org.glite.lb.types/MultiStruct.pm
org.glite.lb.types/StructField.pm
org.glite.lb.types/at3.in

index 0f6efb3..3ab6d4b 100644 (file)
@@ -1,4 +1,4 @@
-package MultiStruct;
+package gLite::LB::MultiStruct;
 
 use gLite::LB::StructField;
 
@@ -116,7 +116,7 @@ sub load {
                        $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);
                }
index 95d33b8..6f2fd6a 100644 (file)
@@ -1,4 +1,4 @@
-package StructField;
+package gLite::LB::StructField;
 
 $lang = 'C';
 1;
index 2d1a595..3e12e3c 100755 (executable)
@@ -34,8 +34,8 @@ my $statusn = "$prefix/share/glite-lb/at3/status.T";
 
 my $indent = '';
 
-$event = new MultiStruct;
-$status = new MultiStruct;
+$event = new gLite::LB::MultiStruct;
+$status = new gLite::LB::MultiStruct;
 
 sub gen {
        local $_ = shift;
@@ -59,7 +59,7 @@ my $startcode;
 while (<>) {
        chomp;
        if (/^\@\@\@LANG: (\S+)$/) {
-               $StructField::lang = $1;
+               $gLite::LB::StructField::lang = $1;
                next;
        }