File: test.pl.patch

package info (click to toggle)
libdbix-recordset-perl 0.26-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 1,652 kB
  • sloc: perl: 6,970; makefile: 6
file content (30 lines) | stat: -rw-r--r-- 917 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Description: Fix incorrect use of DBI::SQL_* constants in test.pl.
Author: Angus Lees <gus@debian.org>
Date: Sat, 28 Sep 2002 17:20:44 +1000

--- a/test.pl
+++ b/test.pl
@@ -412,7 +412,7 @@
 
 sub DropTestTables   {
     my ($_dbh, @tlist) =@_;
-    return unless ($dbh and @tlist);
+    return unless ($_dbh and @tlist);
     foreach (@tlist) 
       {
 	  if ($QuoteIdentifier)
@@ -3711,12 +3711,12 @@
 
             $db -> TableAttr ($Table[1], '!Filter', 
 						    {
-						    DBI::SQL_CHAR     => 
+						    DBI::SQL_CHAR,
 						        [ 
 							    sub { shift =~ /(\d\d)\.(\d\d)\.(\d\d)/ ; "19$3$2$1"},
 							    sub { shift =~ /\d\d(\d\d)(\d\d)(\d\d)/ ; "$3.$2.$1"}
 						        ],
-						    DBI::SQL_VARCHAR     => 
+						    DBI::SQL_VARCHAR,
 						        [ 
 							    sub { shift =~ /(\d\d)\.(\d\d)\.(\d\d)/ ; "19$3$2$1"},
 							    sub { shift =~ /\d\d(\d\d)(\d\d)(\d\d)/ ; "$3.$2.$1"}