From 1c0ce15d5664c305c866e81776936cc3a094bbf3 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sun, 15 Feb 2015 17:31:39 +0100
Subject: [PATCH] diagnostics
---
perl/Gnome-Tomboy/.gitignore | 1 +
perl/Gnome-Tomboy/lib/Tomboy/Directory.pm | 1 +
perl/Gnome-Tomboy/lib/Tomboy/Note/Simple.pm | 3 ++-
3 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/perl/Gnome-Tomboy/.gitignore b/perl/Gnome-Tomboy/.gitignore
index 3d4185a..79c2a7b 100644
--- a/perl/Gnome-Tomboy/.gitignore
+++ b/perl/Gnome-Tomboy/.gitignore
@@ -4,3 +4,4 @@ tmp
*.swp
do_verify.sh
typescript
+@*
diff --git a/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm b/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
index 4762ccd..6972cd6 100644
--- a/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
+++ b/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
@@ -151,6 +151,7 @@ print __LINE__, " scan_dir: quick=[$quick]\n";
unless (defined ($n))
{
print "ATTN: parsing [$fp] returned undefined note!\n";
+ print "caller: ", join (' ', caller()), "\n";
next NOTE;
}
# print "n: ", main::Dumper ($n);
diff --git a/perl/Gnome-Tomboy/lib/Tomboy/Note/Simple.pm b/perl/Gnome-Tomboy/lib/Tomboy/Note/Simple.pm
index 72c118f..7659b0b 100755
--- a/perl/Gnome-Tomboy/lib/Tomboy/Note/Simple.pm
+++ b/perl/Gnome-Tomboy/lib/Tomboy/Note/Simple.pm
@@ -185,7 +185,7 @@ sub parse
if (ref ($c) eq 'Tomboy::Note::Simple') { $note= $c; }
elsif (ref ($c) eq '')
{
- # print "create new c=[$c]\n";
+ print "create new c=[$c] fnm=[$fnm]\n";
$note= new Tomboy::Note::Simple;
}
else
@@ -203,6 +203,7 @@ sub parse
if ($@)
{
print "parsefile failed fnm=[$fnm]:\n", $@, "\n";
+ print "caller: ", join (' ', caller()), "\n";
return undef;
}
--
GitLab