[Jifty-commit] r5748 - Jifty-DBI/branches/tisql/lib/Jifty/DBI

[Jifty commits]

Author: ruz
Date: Mon Aug 18 23:57:43 2008
New Revision: 5748

Modified:
   Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm

Log:
* add dequote function

Modified: Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm
==============================================================================
--- Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	(original)
+++ Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	Mon Aug 18 23:57:43 2008
@@ -39,6 +39,15 @@
     '<=' => '>',
 );
 
+sub dq {
+    my $s = $_[0];
+    return $s unless $s =~ /^$re_delim$/o;
+    substr( $s, 0, 1 ) = '';
+    substr( $s, -1   ) = '';
+    $s =~ s/\\(?=["'])//g;
+    return $s;
+}
+
 sub add_reference {
     my $self = shift;
     my %args = (