mirrors/gstreamer
mirrors/gstreamer
1
1
Fork 0
mirror of https://gitlab.freedesktop.org/gstreamer/gstreamer.git synced 2024-07-03 05:05:52 +00:00
Code Issues 1 Projects Releases Wiki Activity

fix two dots in one filename only get bit after last dot

Browse source 
Original commit message from CVS:
fix two dots in one filename
only get bit after last dot
This commit is contained in:
Thomas Vander Stichele 2002-10-29 19:12:14 +00:00
parent 114a380550
commit 1197e1cdb3
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tools/gst-launch-ext
View file

@ -13,8 +13,17 @@ my (%pipes, %cfg);
sub extension
{
my $path = shift;
my $ext = (fileparse ($path, '\..*?'))[2];
$ext =~ s/^\.//;
my $ext;
# get only the bit after the last period. We don't deal with
# .tar.gz extensions do we ?
if ($path =~ /\./)
{
my $ext = $path;
$ext =~ s/^.*\.//;
}
else { $ext = ""; }
return $ext;
}