r50831 - in /trunk/libtext-query-sql-perl: ./ debian/ lib/Bundle/Text/Query/ lib/Text/Query/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Jan 12 19:11:07 UTC 2010
Author: jawnsy-guest
Date: Tue Jan 12 19:11:01 2010
New Revision: 50831
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50831
Log:
* New upstream release
* No longer create directories via dirs file
* Install DATABASE file via docs target
* Rewrite control description
* Add myself to Uploaders
* Standards-Version 3.8.3 (drop perl version dependency)
* Use new short debhelper 7 rules format
* Rename source and binary package to libtext-query-sql-perl
Added:
trunk/libtext-query-sql-perl/debian/libtext-query-sql-perl.docs
Removed:
trunk/libtext-query-sql-perl/debian/dirs
Modified:
trunk/libtext-query-sql-perl/ChangeLog
trunk/libtext-query-sql-perl/Makefile.PL
trunk/libtext-query-sql-perl/debian/changelog
trunk/libtext-query-sql-perl/debian/control
trunk/libtext-query-sql-perl/lib/Bundle/Text/Query/BuildSQL.pm
trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQL.pm
trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQLMySQL.pm
trunk/libtext-query-sql-perl/t/03mysql.t
trunk/libtext-query-sql-perl/t/21mifluz.t
Modified: trunk/libtext-query-sql-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/ChangeLog?rev=50831&op=diff
==============================================================================
--- trunk/libtext-query-sql-perl/ChangeLog (original)
+++ trunk/libtext-query-sql-perl/ChangeLog Tue Jan 12 19:11:01 2010
@@ -1,3 +1,25 @@
+Wed Dec 27 14:12:45 2000 Loic Dachary <loic at senga.org>
+
+ * Relase 0.09
+
+ * t/21mifluz.t: perl-5.6.0 modifications (Data::Dumper-2.101
+ discrepency).
+
+ * Makefile.PL: depend on Text-Query-0.07, waiting for Eric Bohlman
+ to publish the Text-Query-0.08.
+
+Wed Sep 13 16:50:30 2000 Loic Dachary <loic at senga.org>
+
+ * Relase 0.08
+
+ * Makefile.PL: minor fixes for perl-5.6.0
+
+Wed May 03 15:03:51 2000 Loic Dachary <loic at senga.org>
+
+ * lib/Text/Query/BuildSQLMySQL.pm (build_near): patch from
+ steveHalasz at users.sourceforge.net to fix proximity inversion
+ bug. Update tests.
+
Fri Apr 21 11:39:51 2000 Loic Dachary <loic at senga.org>
* Relase 0.07
Modified: trunk/libtext-query-sql-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/Makefile.PL?rev=50831&op=diff
==============================================================================
--- trunk/libtext-query-sql-perl/Makefile.PL (original)
+++ trunk/libtext-query-sql-perl/Makefile.PL Tue Jan 12 19:11:01 2010
@@ -16,9 +16,9 @@
# Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
#
#
-# $Header: /cvsroot/TextQuery/Text-Query-SQL/Makefile.PL,v 1.3 2000/04/12 16:35:28 loic Exp $
+# $Header: /cvsroot/TextQuery/Text-Query-SQL/Makefile.PL,v 1.5 2000/12/27 13:14:11 loic Exp $
#
-# This -*- perl -*- script writes the Makefile for Catalog
+# This -*- perl -*- script writes the Makefile for Text-Query-SQL
require 5.004;
use strict;
@@ -27,8 +27,8 @@
use ExtUtils::MakeMaker;
version_check('Text::Query', '0.07', 'require Text::Query;');
-version_check('DBI', '1.06', 'require DBI;');
-version_check('Data::Dumper', '2.09', 'require Data::Dumper;');
+version_check('DBI', '1.13', 'require DBI;');
+version_check('Data::Dumper', '2.101', 'require Data::Dumper;');
#
# Check that package $what is installed and that
@@ -48,7 +48,7 @@
print " failed\n";
print <<EOT;
$@
-Catalog needs $what module, version >= $min_version
+Text-Query-SQL needs $what module, version >= $min_version
EOT
exit;
} else {
Modified: trunk/libtext-query-sql-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/debian/changelog?rev=50831&op=diff
==============================================================================
--- trunk/libtext-query-sql-perl/debian/changelog (original)
+++ trunk/libtext-query-sql-perl/debian/changelog Tue Jan 12 19:11:01 2010
@@ -1,9 +1,17 @@
-libtext-querysql-perl (0.07-7) UNRELEASED; urgency=low
+libtext-query-sql-perl (0.09-1) UNRELEASED; urgency=low
* Take over package (Closes: #547242)
+ * New upstream release
* Add a d/watch file
+ * No longer create directories via dirs file
+ * Install DATABASE file via docs target
+ * Rewrite control description
+ * Add myself to Uploaders
+ * Standards-Version 3.8.3 (drop perl version dependency)
+ * Use new short debhelper 7 rules format
+ * Rename source and binary package to libtext-query-sql-perl
- -- Jonathan Yu <jawnsy at cpan.org> Sun, 03 Jan 2010 20:55:48 -0500
+ -- Jonathan Yu <jawnsy at cpan.org> Tue, 12 Jan 2010 14:06:25 -0500
libtext-querysql-perl (0.07-6) unstable; urgency=low
Modified: trunk/libtext-query-sql-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/debian/control?rev=50831&op=diff
==============================================================================
--- trunk/libtext-query-sql-perl/debian/control (original)
+++ trunk/libtext-query-sql-perl/debian/control Tue Jan 12 19:11:01 2010
@@ -1,4 +1,4 @@
-Source: libtext-querysql-perl
+Source: libtext-query-sql-perl
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
@@ -10,23 +10,17 @@
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libtext-query-sql-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libtext-query-sql-perl/
-Package: libtext-querysql-perl
+Package: libtext-query-sql-perl
+Replaces: libtext-querysql-perl
+Conflicts: libtext-querysql-perl
+Provides: libtext-querysql-perl
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends}, libtext-query-perl (>= 0.07),
libdbi-perl
-Description: Text-Query-SQL provides query builders for SQL databases
- Text-Query-SQL is derived from the Text-Query module.
- What is Text-Query then ? It is a general purpose query
- parser and resolver. It is able to parse the AltaVista 'simple
- query' and 'advanced query' syntax. The resulting syntax tree
- is then used to build a search query that depends on the
- database used.
+Description: module for building queries for SQL databases
+ Text::Query::SQL is a Perl module derived from Text::Query that can build
+ SQL queries based on a text-based search query. For example, searching for
+ 'foo and bar' will retrieve rows containing the words foo and bar.
.
- Text-Query-SQL provides query builders for
- SQL databases. Searching 'foo and bar' will retrieve rows containing
- the words foo and bar. It does it by generating the appropriate SQL
- request.
- .
- At present Text-Query-SQL only supports MySQL
- but one could easily add support for any other database
- (see DATABASE file), the module was architected to make this easy.
+ The module currently supports MySQL databases only, but is designed in an
+ extensible way (see the DATABASE file for details).
Added: trunk/libtext-query-sql-perl/debian/libtext-query-sql-perl.docs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/debian/libtext-query-sql-perl.docs?rev=50831&op=file
==============================================================================
--- trunk/libtext-query-sql-perl/debian/libtext-query-sql-perl.docs (added)
+++ trunk/libtext-query-sql-perl/debian/libtext-query-sql-perl.docs Tue Jan 12 19:11:01 2010
@@ -1,0 +1,1 @@
+DATABASE
Modified: trunk/libtext-query-sql-perl/lib/Bundle/Text/Query/BuildSQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/lib/Bundle/Text/Query/BuildSQL.pm?rev=50831&op=diff
==============================================================================
--- trunk/libtext-query-sql-perl/lib/Bundle/Text/Query/BuildSQL.pm (original)
+++ trunk/libtext-query-sql-perl/lib/Bundle/Text/Query/BuildSQL.pm Tue Jan 12 19:11:01 2010
@@ -1,6 +1,6 @@
package Bundle::Text::Query::BuildSQL;
-$VERSION = "0.07";
+$VERSION = "0.08";
1;
@@ -16,9 +16,9 @@
=head1 CONTENTS
-DBI 1.06 - Database independent interface for Perl
+DBI 1.13 - Database independent interface for Perl
-Data::Dumper 2.09 - Stringified perl data structures
+Data::Dumper 2.101 - Stringified perl data structures
Text::Query 0.07 - Parse and match Boolean expression
Modified: trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQL.pm?rev=50831&op=diff
==============================================================================
--- trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQL.pm (original)
+++ trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQL.pm Tue Jan 12 19:11:01 2010
@@ -16,7 +16,7 @@
# Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
#
#
-# $Header: /cvsroot/TextQuery/Text-Query-SQL/lib/Text/Query/BuildSQL.pm,v 1.7 2000/04/21 09:43:48 loic Exp $
+# $Header: /cvsroot/TextQuery/Text-Query-SQL/lib/Text/Query/BuildSQL.pm,v 1.9 2000/12/27 13:14:11 loic Exp $
#
package Text::Query::BuildSQL;
@@ -27,7 +27,7 @@
use Text::Query::Build;
use Carp;
-$VERSION = "0.07";
+$VERSION = "0.09";
@ISA = qw(Text::Query::Build);
Modified: trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQLMySQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQLMySQL.pm?rev=50831&op=diff
==============================================================================
--- trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQLMySQL.pm (original)
+++ trunk/libtext-query-sql-perl/lib/Text/Query/BuildSQLMySQL.pm Tue Jan 12 19:11:01 2010
@@ -16,7 +16,7 @@
# Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
#
#
-# $Header: /cvsroot/TextQuery/Text-Query-SQL/lib/Text/Query/BuildSQLMySQL.pm,v 1.3 1999/07/01 11:32:11 loic Exp $
+# $Header: /cvsroot/TextQuery/Text-Query-SQL/lib/Text/Query/BuildSQLMySQL.pm,v 1.4 2000/05/03 13:16:19 loic Exp $
#
package Text::Query::BuildSQLMySQL;
@@ -43,7 +43,7 @@
} else {
my($max) = $self->{parseopts}{-near};
my($op) = "([[:space:]]+[[:alnum:]]+){0,$max}[[:space:]]+";
- $t = "$$l[2]$op$$r[2]";
+ $t = "($$l[2]$op$$r[2])|($$r[2]$op$$l[2])";
}
return [ 'literal', $$l[1], $t ];
}
Modified: trunk/libtext-query-sql-perl/t/03mysql.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/t/03mysql.t?rev=50831&op=diff
==============================================================================
--- trunk/libtext-query-sql-perl/t/03mysql.t (original)
+++ trunk/libtext-query-sql-perl/t/03mysql.t Tue Jan 12 19:11:01 2010
@@ -69,7 +69,7 @@
$question = "word1 near word2";
$query->prepare($question);
- ok($query->matchstring(), " ( field1 regexp '[[:<:]][wW][oO][rR][dD]1([[:space:]]+[[:alnum:]]+){0,10}[[:space:]]+[wW][oO][rR][dD]2[[:>:]]' ) ", "prepare $question");
+ ok($query->matchstring(), " ( field1 regexp '[[:<:]]([wW][oO][rR][dD]1([[:space:]]+[[:alnum:]]+){0,10}[[:space:]]+[wW][oO][rR][dD]2)|([wW][oO][rR][dD]2([[:space:]]+[[:alnum:]]+){0,10}[[:space:]]+[wW][oO][rR][dD]1)[[:>:]]' ) ", "prepare $question");
$question = "not word1";
$query->prepare($question);
@@ -105,7 +105,7 @@
$question = "field2: ( 20 and 21 or field1: 21 ) or field1: 100 or 'field2:' and 30 near 40";
$query->prepare($question);
- ok($query->matchstring(), " ( ( ( ( field2 regexp '[[:<:]]20[[:>:]]' and field2 regexp '[[:<:]]21[[:>:]]' ) or field1 regexp '[[:<:]]21[[:>:]]' ) or field1 regexp '[[:<:]]100[[:>:]]' or ( field1 regexp '[[:<:]][fF][iI][eE][lL][dD]2:[[:>:]]' and field1 regexp '[[:<:]]30([[:space:]]+[[:alnum:]]+){0,10}[[:space:]]+40[[:>:]]' ) ) ) ", "prepare $question");
+ ok($query->matchstring(), " ( ( ( ( field2 regexp '[[:<:]]20[[:>:]]' and field2 regexp '[[:<:]]21[[:>:]]' ) or field1 regexp '[[:<:]]21[[:>:]]' ) or field1 regexp '[[:<:]]100[[:>:]]' or ( field1 regexp '[[:<:]][fF][iI][eE][lL][dD]2:[[:>:]]' and field1 regexp '[[:<:]](30([[:space:]]+[[:alnum:]]+){0,10}[[:space:]]+40)|(40([[:space:]]+[[:alnum:]]+){0,10}[[:space:]]+30)[[:>:]]' ) ) ) ", "prepare $question");
$question = "field2,field3: ( 20 and 21 )";
$query->prepare($question);
Modified: trunk/libtext-query-sql-perl/t/21mifluz.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtext-query-sql-perl/t/21mifluz.t?rev=50831&op=diff
==============================================================================
--- trunk/libtext-query-sql-perl/t/21mifluz.t (original)
+++ trunk/libtext-query-sql-perl/t/21mifluz.t Tue Jan 12 19:11:01 2010
@@ -12,19 +12,27 @@
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 0;
+#
+# Can you believe this ? Data::Dumper 2.101 in perl 5.6 is not the same
+# as Data::Dumper 2.101 on CPAN. Christ.
+#
+my($v56) = ($] >= 5.006) ? 1 : 0;
+
{
my($question);
my($query) = Text::Query->new('blurk',
-build => 'Text::Query::BuildSQLMifluz',
-fields_searched => 'field1',
);
+ my($expect) = $v56 ? "['literal','field1','10']" : "['literal','field1',10]";
$question = "10";
$query->prepare($question);
- ok(Dumper($query->{'matchexp'}), "['literal','field1',10]", "prepare $question");
+ ok(Dumper($query->{'matchexp'}), $expect, "prepare $question");
+ $expect = $v56 ? "['or','field1',['mandatory','field1',['literal','field1','10']],['forbiden','field1',['literal','field1','20']],['literal','field1','30']]" : "['or','field1',['mandatory','field1',['literal','field1',10]],['forbiden','field1',['literal','field1',20]],['literal','field1',30]]";
$question = "+10 -20 30";
$query->prepare($question);
- ok(Dumper($query->{'matchexp'}), "['or','field1',['mandatory','field1',['literal','field1',10]],['forbiden','field1',['literal','field1',20]],['literal','field1',30]]", "prepare $question");
+ ok(Dumper($query->{'matchexp'}), $expect, "prepare $question");
}
More information about the Pkg-perl-cvs-commits
mailing list