[Gstreamer-bugs] [Bug 98688] New - gst-launch-ext doesn't run

[bugzilla-daemon at widget.gnome.org]

Please do not reply to this email- if you want to comment on the bug, go to the
URL shown below and enter your comments there.

http://bugzilla.gnome.org/show_bug.cgi?id=98688

Changed by hans at degraaff.org.

--- shadow/98688	Sat Nov 16 05:19:52 2002
+++ shadow/98688.tmp.18091	Sat Nov 16 05:19:52 2002
@@ -0,0 +1,53 @@
+Bug#: 98688
+Product: GStreamer
+Version: 0.4.2
+OS: Linux
+OS Details: 
+Status: NEW   
+Resolution: 
+Severity: normal
+Priority: Normal
+Component: gst-plugins
+AssignedTo: gstreamer-maint at bugzilla.gnome.org                            
+ReportedBy: hans at degraaff.org               
+QAContact: gstreamer-maint at bugzilla.gnome.org
+TargetMilestone: 0.4.0
+URL: 
+Summary: gst-launch-ext doesn't run
+
+gst-launch-ext doesn't run with Perl 5.8 installed. This is because of the
+extra 'my' for $ext in the extension sub at the top of the file (it hides
+the other $ext, thus resulting in an empty results, causing problems later
+when an extension is needed. The fixed extension looks like this: 
+
+sub extension
+{
+  my $path = shift;
+  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;
+}sub extension
+{
+  my $path = shift;
+  my $ext;
+
+  # get only the bit after the last period.  We don't deal with
+  # .tar.gz extensions do we ?
+  if ($path =~ /\./)
+  {
+    $ext = $path;
+    $ext =~ s/^.*\.//;
+  }
+  else { $ext = ""; }
+
+  return $ext;
+}