From ae97992adf4c2c875c2de98bf89e2323e971c64d Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Wed, 26 Dec 2007 19:55:09 +0000 Subject: * Changed naming scheme for exports from : to ::, reusing the scope operator from perl and C++. This is in preparation for add scope support to attributes, which is going to use the same naming scheme. git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1434 95ad53e4-c205-0410-b2fa-d234c58c8868 --- installer/OpenSLX/OSExport/Engine.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'installer') diff --git a/installer/OpenSLX/OSExport/Engine.pm b/installer/OpenSLX/OSExport/Engine.pm index 2033018c..c17a60d6 100644 --- a/installer/OpenSLX/OSExport/Engine.pm +++ b/installer/OpenSLX/OSExport/Engine.pm @@ -103,7 +103,7 @@ sub initializeForNew die _tr("vendor-OS '%s' not found in DB, giving up!", $vendorOSName); } - my $exportName = "$vendorOSName:$exportType"; + my $exportName = "${vendorOSName}::${exportType}"; $openslxDB->disconnect(); @@ -187,7 +187,7 @@ sub _initialize $exportType =~ m[^(\w+)(?:-(\w+))?$]; my $exportFS = lc($1); my $exportBD = lc($2); - vlog(2, "export-fs='$exportFS' export-bd='$exportBD'"); + vlog(2, "export-filesys='$exportFS' export-blockdev='$exportBD'"); $self->{'vendor-os-name'} = $vendorOSName; $self->{'vendor-os-id'} = $vendorOSId; -- cgit v1.2.3-55-g7522