From 99c6ba665d4eab3751e6064b0b2b587e4b9cdf51 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 28 Jun 2016 03:07:43 +0200
Subject: [PATCH] trying to factor out something

---
 perl/Gnome-Tomboy/tom | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/Gnome-Tomboy/tom b/perl/Gnome-Tomboy/tom
index ff915b9..a7fbd65 100755
--- a/perl/Gnome-Tomboy/tom
+++ b/perl/Gnome-Tomboy/tom
@@ -50,6 +50,7 @@ use Tomboy::Note::Simple;
 use Tomboy::Directory;
 use Tomboy::TOC;
 
+my $toc;
 my $toc_file;
 
 my $note_dir_changed= 0;
@@ -59,7 +60,6 @@ my $start_tb= 0;
 my $start_visual_editor= 0; # AKA $EDITOR
 my $dump_note= 0;
 my $verbosity= 'dump';
-my $toc;
 my $op_code;
 my @PAR;
 
@@ -164,6 +164,7 @@ sub setup_toc
   $toc_file= join ('/', $note_dir, 'Tomboy-TOC.csv') unless (defined ($toc_file));
   $toc= new Tomboy::TOC('note_dir' => $note_dir, 'toc_file' => $toc_file);
   # print "toc: ", Dumper ($toc);
+  return ($toc_file, $toc);
 }
 
 sub tom_toc
-- 
GitLab