Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: maxatome/p5-palm-matirelire
base: dcaa4e927a
...
head fork: maxatome/p5-palm-matirelire
compare: 00241e67ca
  • 2 commits
  • 2 files changed
  • 0 commit comments
  • 1 contributor
Commits on Feb 11, 2012
@maxatome Avoid "use of goto to jump into a construct is deprecated" warning. 766d80b
@maxatome Bump version.
Now depends on the latest version of Palm::PDB.
00241e6
Showing with 10 additions and 12 deletions.
  1. +2 −2 Makefile.PL
  2. +8 −10 lib/Palm/MaTirelire/Types.pm
View
4 Makefile.PL
@@ -3,8 +3,8 @@ use ExtUtils::MakeMaker;
# the contents of the Makefile that is written.
WriteMakefile(
NAME => 'Palm::MaTirelire',
- VERSION => '1.10',
- PREREQ_PM => { 'Palm::PDB' => '1.29' },
+ VERSION => '1.11',
+ PREREQ_PM => { 'Palm::PDB' => '1.012' },
ABSTRACT => 'Superclass handler for Palm MaTirelire databases',
AUTHOR => 'Maxime Soulé <max@ma-tirelire.net>',
);
View
18 lib/Palm/MaTirelire/Types.pm
@@ -1,9 +1,9 @@
#
# Author : Maxime Soulé
# Created On : Sun Aug 29 21:40:59 2004
-# Last Modified By: Maxime Soule
-# Last Modified On: Mon May 3 14:53:53 2010
-# Update Count : 20
+# Last Modified By: Maximum Solo
+# Last Modified On: Sat Feb 11 22:37:16 2012
+# Update Count : 22
#
# Copyright (C) 2005, Maxime Soulé
# You may distribute this file under the terms of the Artistic
@@ -349,18 +349,13 @@ sub dump
$depth_glyphs .= $rec->{brother_id} == 0xff ? ' ' : '| ';
$depth++;
- load_and_continue:
- $rec = $ref_cache->[$id];
- next;
+ goto load_and_continue;
}
# Else type has a brother
brother:
$id = $rec->{brother_id};
- if ($id != 0xff)
- {
- goto load_and_continue;
- }
+ goto load_and_continue if $id != 0xff;
# Else, if the type has a parent => go to his brother OR his parent
$id = $rec->{parent_id};
@@ -376,6 +371,9 @@ sub dump
# Else that's all folk...
last;
+
+ load_and_continue:
+ $rec = $ref_cache->[$id];
}
if (@types != @{$self->{records}})

No commit comments for this range

Something went wrong with that request. Please try again.