[SCM] Debian packaging of DBIx-Profile CPAN distribution branch, master, updated. debian/1.0-3-8-g200ee6a

[Xavier]

The following commit has been merged in the master branch:
commit b19e511c6c26b33f99e509e64f0ba0656a9fb063
Author: Xavier <x.guimard at free.fr>
Date:   Sun Dec 23 19:04:29 2012 +0100

    Transform old package.diff in patch

diff --git a/MANIFEST b/MANIFEST
deleted file mode 100644
index f68882b..0000000
--- a/MANIFEST
+++ /dev/null
@@ -1,4 +0,0 @@
-Makefile.PL
-Profile.pm
-README
-MANIFEST
diff --git a/Profile.pm b/Profile.pm
index 47ca35c..13f9d37 100644
--- a/Profile.pm
+++ b/Profile.pm
@@ -64,10 +64,10 @@
   DBIx::Profile is a quick and easy, and mostly transparent, profiler
   for scripts using DBI.  It collects information on the query 
   level, and keeps track of first, failed, normal, and total amounts
-  (count, wall clock, CPU time) for each function on the query.
+  (count, wall clock, cput time) for each function on the query.
 
   NOTE: DBIx::Profile use Time::HiRes to clock the wall time and
-  the old standby times() to clock the CPU time.  The CPU time is
+  the old standby times() to clock the cpu time.  The cpu time is
   pretty coarse.
 
   DBIx::Profile can also trace the execution of queries.  It will print 
@@ -225,16 +225,9 @@ sub DESTROY {
 # JEFF - The printing and the print code is kinda (er... very) ugly!
 #
 
-#like printProfile, except returns the results instead of printing them.
-sub sprintProfile {
-    my $self = shift;
-    $self->printProfile({'sprint'=>1});
-}
-
 sub printProfile {
 
     my $self = shift;
-    my $args = shift;
     my %result;
     my $total = 0;
     no integer;
@@ -299,18 +292,13 @@ sub printProfile {
 	$result{$total} = $text;
     } # each query
 
-    my $results;
     foreach my $qry (sort stripsort keys %result) {
-        if ( $args->{'sprint'} ) {
-            $results .= $result{$qry} . "\n";
-        } elsif ($DBIx::Profile::DBIXFILE eq "" ) {
+	if ($DBIx::Profile::DBIXFILE eq "" ) {
 	    warn $result{$qry} . "\n";
 	} else {
 	    print $DBIx::Profile::DBIXFILEHANDLE $result{$qry} . "\n";
 	}
     }
-
-    return $results if $args->{'sprint'};
 }
     
 sub stripsort {
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..75512c5
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+update-old-patch-to-quilt-format
diff --git a/debian/patches/update-old-patch-to-quilt-format b/debian/patches/update-old-patch-to-quilt-format
new file mode 100644
index 0000000..20350e4
--- /dev/null
+++ b/debian/patches/update-old-patch-to-quilt-format
@@ -0,0 +1,65 @@
+Description: Update old patch to quilt format
+Author: Ivan Kohler <ivan at debian.org>
+Forwarded: no
+Reviewed-By: Xavier Guimard <x.guimard at free.fr>
+Last-Update: 2012-12-23
+
+--- /dev/null
++++ b/MANIFEST
+@@ -0,0 +1,4 @@
++Makefile.PL
++Profile.pm
++README
++MANIFEST
+--- a/Profile.pm
++++ b/Profile.pm
+@@ -64,10 +64,10 @@
+   DBIx::Profile is a quick and easy, and mostly transparent, profiler
+   for scripts using DBI.  It collects information on the query 
+   level, and keeps track of first, failed, normal, and total amounts
+-  (count, wall clock, cput time) for each function on the query.
++  (count, wall clock, CPU time) for each function on the query.
+ 
+   NOTE: DBIx::Profile use Time::HiRes to clock the wall time and
+-  the old standby times() to clock the cpu time.  The cpu time is
++  the old standby times() to clock the CPU time.  The CPU time is
+   pretty coarse.
+ 
+   DBIx::Profile can also trace the execution of queries.  It will print 
+@@ -225,9 +225,16 @@
+ # JEFF - The printing and the print code is kinda (er... very) ugly!
+ #
+ 
++#like printProfile, except returns the results instead of printing them.
++sub sprintProfile {
++    my $self = shift;
++    $self->printProfile({'sprint'=>1});
++}
++
+ sub printProfile {
+ 
+     my $self = shift;
++    my $args = shift;
+     my %result;
+     my $total = 0;
+     no integer;
+@@ -292,13 +299,18 @@
+ 	$result{$total} = $text;
+     } # each query
+ 
++    my $results;
+     foreach my $qry (sort stripsort keys %result) {
+-	if ($DBIx::Profile::DBIXFILE eq "" ) {
++        if ( $args->{'sprint'} ) {
++            $results .= $result{$qry} . "\n";
++        } elsif ($DBIx::Profile::DBIXFILE eq "" ) {
+ 	    warn $result{$qry} . "\n";
+ 	} else {
+ 	    print $DBIx::Profile::DBIXFILEHANDLE $result{$qry} . "\n";
+ 	}
+     }
++
++    return $results if $args->{'sprint'};
+ }
+     
+ sub stripsort {

-- 
Debian packaging of DBIx-Profile CPAN distribution