oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix getFileExtension so that it only returns file extensions. Add tests to Storage.t to validate that

Browse source
This commit is contained in:
Colin Kuskie 2006-05-24 23:25:21 +00:00
parent c9915ad6b3
commit e1fee84dc5
2 changed files with 50 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Storage.pm
View file

@ -504,7 +504,8 @@ sub getFileContentsAsScalar {
=head2 getFileExtension ( filename )
Returns the extension or type of this file.
Returns the extension or type of this file. If there's no extension, will either return
undef or the empty string, dependent on the absence or presence of a dot.
=head3 filename
@ -515,8 +516,8 @@ The filename of the file you wish to find out the type for.
sub getFileExtension {
my $self = shift;
my $filename = shift;
my $extension = lc($filename);
$extension =~ s/.*\.(.*?)$/$1/;
$filename = lc $filename;
my ($extension) = $filename =~ /\.([^.]*)$/;
return $extension;
}