[Pkg-scicomp-commits] [SCM] qrupdate branch, master, updated. d96d9bbe08fcecf2f8dddc31e7c24498bc500746

[Jordi Gutiérrez Hermoso]

The following commit has been merged in the master branch:
commit d96d9bbe08fcecf2f8dddc31e7c24498bc500746
Author: Jordi Gutiérrez Hermoso <jordigh at gmail.com>
Date:   Wed Feb 9 19:20:27 2011 -0600

    Cleanup whitespace in Perl script

diff --git a/debian/changelog b/debian/changelog
index 2f99dd0..d714d9d 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -9,8 +9,10 @@ qrupdate (1.1.1-1) unstable; urgency=low
   * debian/source/format: New file
   * debian/control: 
       Change build dependency from libblas3gf to libblas-dev
+  * debian/get-function-ref.pl
+      Cleanup whitespace, remove tabs
 
- -- Jordi Gutiérrez Hermoso <jordigh at gmail.com>  Wed, 09 Feb 2011 19:00:45 -0600
+ -- Jordi Gutiérrez Hermoso <jordigh at gmail.com>  Wed, 09 Feb 2011 19:20:01 -0600
 
 qrupdate (1.0.1-2) UNRELEASED; urgency=low
 
diff --git a/debian/get-function-ref.pl b/debian/get-function-ref.pl
index 0c5e6b8..64d5ddb 100755
--- a/debian/get-function-ref.pl
+++ b/debian/get-function-ref.pl
@@ -1,20 +1,17 @@
 #!/usr/bin/perl
 
-while(<STDIN>)
-{    
-    if(/^\s*subroutine\s*(.*)/)
-    {
-	$subname = "$1\n";
-	$line = <STDIN>;
-	$line = <STDIN> if ($line =~ /^\s*$/);
-	$doctext="";
- 	while($line =~ /^c(.*)/ )
- 	{
-	    $doctext .= "\t$1\n";
-	    $line = <STDIN>;
- 	}
-	print $subname;
-	print $doctext;
+while (<STDIN>) {
+  if (/^\s*subroutine\s*(.*)/) {
+    $subname = "$1\n";
+    $line = <STDIN>;
+    $line = <STDIN> if ($line =~ /^\s*$/);
+    $doctext="";
+    while ($line =~ /^c(.*)/ ) {
+      $doctext .= "\t$1\n";
+      $line = <STDIN>;
     }
+    print $subname;
+    print $doctext;
+  }
 }
 

-- 
qrupdate