audio-recordings.cgi: fix split
This commit is contained in:
@@ -366,7 +366,7 @@ sub uploadFile {
|
|||||||
$time =~ s/\s/\_/g;
|
$time =~ s/\s/\_/g;
|
||||||
$time =~ s/[^a-zA-Z0-9\.\-\_]//g;
|
$time =~ s/[^a-zA-Z0-9\.\-\_]//g;
|
||||||
|
|
||||||
my $extension =~ ( split( ".", $filename) ) [-1];
|
my $extension =~ ( split( /\./, $filename) ) [-1];
|
||||||
$filename =~ s/\.$extension$//;
|
$filename =~ s/\.$extension$//;
|
||||||
$extension =~ s/[^a-zA-Z0-9\.\-\_]//g;
|
$extension =~ s/[^a-zA-Z0-9\.\-\_]//g;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user