Subversion Repositories DevTools

Rev

Rev 359 | Rev 377 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 359 Rev 363
Line 824... Line 824...
824 
    $fh->Comment("\n");
 824 
    $fh->Comment("\n");
825 
 
 825 
 
826 
    foreach my $tag ( PackageEntry::GetPackageList() )
 826 
    foreach my $tag ( PackageEntry::GetPackageList() )
827 
    {
 827 
    {
828 
        my ($name, $version, $type) = PackageEntry::GetPackageData($tag);
 828 
        my ($name, $version, $type) = PackageEntry::GetPackageData($tag);
829 
        $fh->WriteLn(pstring ("${vtag}PACKAGE_$name", $version));
 829 
        $fh->WriteLn(pvbstring ("${vtag}PACKAGE_$name", $version));
830 
    }
 830 
    }
831 
 
 831 
 
832 
    $fh->WriteLn();
 832 
    $fh->WriteLn();
833 
    $fh->Close();
 833 
    $fh->Close();
834 
}
 834 
}