From 21e2513a1a51e02a04150b09aef6def424cf02d3 Mon Sep 17 00:00:00 2001
From: Thomas Vander Stichele <thomas@apestaart.org>
Date: Tue, 29 Oct 2002 19:12:14 +0000
Subject: fix two dots in one filename only get bit after last dot

Original commit message from CVS:
fix two dots in one filename
only get bit after last dot
---
 tools/gst-launch-ext | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/tools/gst-launch-ext b/tools/gst-launch-ext
index d61d34d3..193c2555 100755
--- 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;
 }
 
-- 
cgit