diff options
| author | Oliver Tappe | 2007-07-10 22:57:27 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-07-10 22:57:27 +0200 |
| commit | d5113273cf2cefd1db9942e4d743f455aa8f669a (patch) | |
| tree | f51f0d84dbd40b62b12d6e30479464eba391eff3 /installer/OpenSLX/OSExport/FileSystem/NFS.pm | |
| parent | Adaptions for Ubu 7.04 and Bugfixes for older Versions (diff) | |
| download | core-d5113273cf2cefd1db9942e4d743f455aa8f669a.tar.gz core-d5113273cf2cefd1db9942e4d743f455aa8f669a.tar.xz core-d5113273cf2cefd1db9942e4d743f455aa8f669a.zip | |
* more work towards perlcritic compliance, fixed the low-hanging fruit
for level 4
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1234 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'installer/OpenSLX/OSExport/FileSystem/NFS.pm')
| -rw-r--r-- | installer/OpenSLX/OSExport/FileSystem/NFS.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/installer/OpenSLX/OSExport/FileSystem/NFS.pm b/installer/OpenSLX/OSExport/FileSystem/NFS.pm index 0073d55c..878b956b 100644 --- a/installer/OpenSLX/OSExport/FileSystem/NFS.pm +++ b/installer/OpenSLX/OSExport/FileSystem/NFS.pm @@ -43,6 +43,7 @@ sub initialize $self->{'engine'} = $engine; my $exportBasePath = "$openslxConfig{'public-path'}/export"; $self->{'export-path'} = "$exportBasePath/nfs/$engine->{'vendor-os-name'}"; + return; } sub exportVendorOS @@ -52,6 +53,7 @@ sub exportVendorOS my $target = $self->{'export-path'}; $self->_copyViaRsync($source, $target); + return; } sub purgeExport @@ -101,6 +103,7 @@ sub showExportConfigInfo # TODO : add something a bit more clever here... # my $exports = slurpFile("/etc/exports"); + return; } ################################################################################ @@ -126,6 +129,7 @@ sub _copyViaRsync close($rsyncFH) or die _tr("unable to export to target '%s', giving up! (%s)", $target, $!); + return; } sub _determineIncludeExcludeList |