scip/note
1
0
Fork 0
mirror of https://codeberg.org/scip/note.git synced 2025-12-17 20:51:02 +01:00
Code Issues Packages Projects Releases Wiki Activity

FIXED: there was a bug in the search expression, use now \Q and \E.

Browse Source 
ADDED:          --config <file> allows one to use another config than the default.
This commit is contained in:
TLINDEN
2012-02-10 20:15:52 +01:00
parent 7d308cde40
commit 0c293e4b81
6 changed files with 42 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
NOTEDB/binary.pm
View File

@@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: binary.pm,v 1.5 2000/04/26 22:57:38 thomas Exp thomas $
# $Id: binary.pm,v 1.6 2000/06/25 19:48:00 scip Exp scip $
# Perl module for note
# binary database backend. see docu: perldoc NOTEDB::binary
#
@@ -25,7 +25,7 @@ BEGIN {
my ($NOTEDB, $sizeof, $typedef,$version);
my ($cipher);
$version = "(NOTEDB::binary, 1.5)";
$version = "(NOTEDB::binary, 1.6)";
sub new
@@ -171,7 +171,7 @@ sub get_search
($num, $note, $date) = unpack($typedef, $buffer);
$n = ude($note);
$t = ude($date);
if($n =~ /$searchstring/i)
if($n =~ /\Q$searchstring\E/i)
{
$res{$num}->{'note'} = $n;
$res{$num}->{'date'} = $t;