From 0eb321bf2c1cc0e048faff26a01f86cdd3ec254f Mon Sep 17 00:00:00 2001
From: Uoti Urpala <uau@glyph.nonexistent.invalid>
Date: Tue, 7 Jul 2009 02:26:13 +0300
Subject: Remove trailing whitespace from most files

---
 TOOLS/w32codec_dl.pl | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'TOOLS/w32codec_dl.pl')

diff --git a/TOOLS/w32codec_dl.pl b/TOOLS/w32codec_dl.pl
index 2dfe46df23..c4a16b6b58 100755
--- a/TOOLS/w32codec_dl.pl
+++ b/TOOLS/w32codec_dl.pl
@@ -33,7 +33,7 @@ CC: while (<CCONF>)
 	next CC if (m/^[ \t]*\;/);
 	s/\;.*//g;
 	s/#.*//g;
-	
+
 	if (m/^videocodec (.*)/)
 	{
 		$codec = $1;
@@ -105,17 +105,17 @@ close CODEC_CABS;
 sub find_codec
 {
 	my ($fourcc) = @_;
-	
+
 	my $guid = sprintf ("%08X", unpack ("V", $fourcc))."-0000-0010-8000-00AA00389B71";
-	
+
 	my $req = HTTP::Request->new (POST => "http://activex.microsoft.com/objects/ocget.dll");
 	$req->header ('Accept', '*/*');
 	$req->content_type ('application/x-www-form-urlencoded');
 	$req->content ("CLSID=%7B${guid}%7D\n");
 	#$req->content ('CLSID={'.${guid}.'}');
-	
+
 	my $res = $ua->request ($req);
-	
+
 	if ($res->is_success) {
 		print "Lookup returned success... weird!\n";
 		return 1;
@@ -147,17 +147,17 @@ sub find_codec
 sub get_codec
 {
 	my ($url) = @_;
-	
+
 	my $req = HTTP::Request->new (GET => $url);
 	$req->header ("Accept", "*/*");
 	my $res = $ua->request ($req);
-	
+
 	if ($res->is_success)
 	{
 		open TMP, ">tmp.cab" or die "Unable to open tmp.cab";
 		print TMP $res->content;
 		close TMP;
-		
+
 		system "cabextract tmp.cab";
 		unlink "tmp.cab";
 	}
@@ -166,4 +166,3 @@ sub get_codec
 		print "No such file!\n";
 	}
 }
-
-- 
cgit v1.2.3