From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Sun, 24 Oct 2010 20:59:47 +0000 (-0500)
Subject: Do not show_progress by default
X-Git-Tag: v1.70~16
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17c25d88d37a4f5d46ddeef4f6cfaa83b425019f;p=dbsrgits%2FSQL-Abstract.git

Do not show_progress by default
---

diff --git a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
index ea40e97..8a8c659 100644
--- a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
+++ b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
@@ -23,7 +23,7 @@ sub new {
        my $c = \&Term::ANSIColor::color;
        $c->('blink white on_black') . 'EXECUTING...' . $c->('reset');;
    } : 'EXECUTING...';
-   my $show_progress = defined $args->{show_progress} ? $args->{show_progress} : 1;
+   my $show_progress = $args->{show_progress};
 
    my $squash_repeats = $args->{squash_repeats};
    my $sqlat = SQL::Abstract::Tree->new($args);