From: František Dvořák Date: Tue, 8 Mar 2011 21:29:53 +0000 (+0000) Subject: Full namespace declarations for rpm AutoReqProv, SB #78801. X-Git-Tag: glite-px-proxyrenewal_R_1_3_16_1~2 X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=647c4f303a84b435cc63acd76cc6415a97ed5822;p=jra1mw.git Full namespace declarations for rpm AutoReqProv, SB #78801. --- diff --git a/org.glite.lb.types/MultiStruct.pm b/org.glite.lb.types/MultiStruct.pm index 0f6efb3..3ab6d4b 100644 --- a/org.glite.lb.types/MultiStruct.pm +++ b/org.glite.lb.types/MultiStruct.pm @@ -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); } diff --git a/org.glite.lb.types/StructField.pm b/org.glite.lb.types/StructField.pm index 95d33b8..6f2fd6a 100644 --- a/org.glite.lb.types/StructField.pm +++ b/org.glite.lb.types/StructField.pm @@ -1,4 +1,4 @@ -package StructField; +package gLite::LB::StructField; $lang = 'C'; 1; diff --git a/org.glite.lb.types/at3.in b/org.glite.lb.types/at3.in index 2d1a595..3e12e3c 100755 --- a/org.glite.lb.types/at3.in +++ b/org.glite.lb.types/at3.in @@ -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; }