r1987 - Kludgy bug workaround

[com...@warewulf.lbl.gov]

Author: gmk
Date: 2016-05-12 12:44:44 -0700 (Thu, 12 May 2016)
New Revision: 1987

Modified:
trunk/common/lib/Warewulf/File.pm
Log:
Kludgy bug workaround


Modified: trunk/common/lib/Warewulf/File.pm
===================================================================
--- trunk/common/lib/Warewulf/File.pm 2016-04-27 19:57:38 UTC (rev 1986)
+++ trunk/common/lib/Warewulf/File.pm 2016-05-12 19:44:44 UTC (rev 1987)
@@ -160,7 +160,7 @@
#return $self->prop("filetype", $validator, @_);

# The below basically does the same thing as the above, just faster.
- return $self->prop("filetype", sub { return (keys %{ +{S_IFMT($_[0]),1} })[0] || S_IFREG; }, @_);
+ return $self->prop("filetype", sub { return (keys %{ +{S_IFMT($_[0]),1} })[0] || S_IFREG; }, @_) || S_IFREG;
}