projects
/
platform
/
upstream
/
gstreamer.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
114a380
)
fix two dots in one filename only get bit after last dot
author
Thomas Vander Stichele
<thomas@apestaart.org>
Tue, 29 Oct 2002 19:12:14 +0000
(19:12 +0000)
committer
Thomas Vander Stichele
<thomas@apestaart.org>
Tue, 29 Oct 2002 19:12:14 +0000
(19:12 +0000)
Original commit message from CVS:
fix two dots in one filename
only get bit after last dot
tools/gst-launch-ext
patch
|
blob
|
history
diff --git
a/tools/gst-launch-ext
b/tools/gst-launch-ext
index
d61d34d
..
193c255
100755
(executable)
--- a/
tools/gst-launch-ext
+++ b/
tools/gst-launch-ext
@@
-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;
}