dev-perl/DBI-Shell/files/DBI-Shell-11.950.0-local.patch


1
2
3
4
5
6
7
8
9
10
11
12
13

# See https://rt.cpan.org/Public/Bug/Display.html?id=73873
#
--- lib/DBI/Format.pm
+++ lib/DBI/Format.pm
@@ -374,7 +374,7 @@ sub header {
 
 sub row {
     my($self, $rowref) = @_;
-		local( $^W = 0 );
+    local( $^W ) = 0;
     my @row = @$rowref;
        my $fh = $self->{'fh'};
        print $fh (join($self->{sep}, @row), "\n");