r48090 - /trunk/libparse-debcontrol-perl/debian/patches/strict_parse.diff
azatoth-guest at users.alioth.debian.org
azatoth-guest at users.alioth.debian.org
Tue Dec 1 21:37:13 UTC 2009
Author: azatoth-guest
Date: Tue Dec 1 21:37:07 2009
New Revision: 48090
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48090
Log:
adding POD:s
Modified:
trunk/libparse-debcontrol-perl/debian/patches/strict_parse.diff
Modified: trunk/libparse-debcontrol-perl/debian/patches/strict_parse.diff
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-debcontrol-perl/debian/patches/strict_parse.diff?rev=48090&op=diff
==============================================================================
--- trunk/libparse-debcontrol-perl/debian/patches/strict_parse.diff (original)
+++ trunk/libparse-debcontrol-perl/debian/patches/strict_parse.diff Tue Dec 1 21:37:07 2009
@@ -1,7 +1,7 @@
Index: libparse-debcontrol-perl/t/34strict.t
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
-+++ libparse-debcontrol-perl/t/34strict.t 2009-12-01 01:31:19.000000000 +0100
++++ libparse-debcontrol-perl/t/34strict.t 2009-12-01 20:45:05.000000000 +0100
@@ -0,0 +1,71 @@
+#
+#===============================================================================
@@ -77,12 +77,39 @@
Index: libparse-debcontrol-perl/lib/Parse/DebControl/Error.pm
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
-+++ libparse-debcontrol-perl/lib/Parse/DebControl/Error.pm 2009-12-01 01:02:57.000000000 +0100
-@@ -0,0 +1,75 @@
++++ libparse-debcontrol-perl/lib/Parse/DebControl/Error.pm 2009-12-01 21:13:49.000000000 +0100
+@@ -0,0 +1,104 @@
+use strict;
+use warnings;
+
+package Parse::DebControl::Error;
++=pod
++
++=head1 NAME
++Parse::DebControl::Error - Exception classes for Parse::DebControl
++
++=head1 SYNOPSIS
++
++ use Parse::DebControl::Error;
++
++ throw Parse::DebControl::Error();
++
++ throw Parse::DebControl::Error::Parse( "reason for exception" );
++ throw Parse::DebControl::Error::Parse( "reason for exception", $line_number_of_data );
++ throw Parse::DebControl::Error::Parse( "reason for exception", $line_number_of_data, $context_line );
++
++ throw Parse::DebControl::Error::IO( "information regarding the error" );
++
++=head1 COPYRIGHT
++
++Parse::DebControl is copyright 2003,2004 Jay Bonci E<lt>jaybonci at cpan.orgE<gt>.
++
++Parse::DebControl::Error is copyright 2009 Carl Fürstenberg E<lt>azatoth at gmail.comE<gt>.
++
++This program is free software; you can redistribute it and/or modify it under
++the same terms as Perl itself.
++
++=cut
+use base 'Error';
+our $VERSION = '0.1';
+sub new
@@ -94,6 +121,7 @@
+}
+
+package Parse::DebControl::Error::Parse;
++
+use base 'Parse::DebControl::Error';
+our $VERSION = '0.1';
+
@@ -133,6 +161,7 @@
+}
+
+package Parse::DebControl::Error::IO;
++
+use base 'Parse::DebControl::Error';
+our $VERSION = '0.1';
+sub new
@@ -157,9 +186,45 @@
Index: libparse-debcontrol-perl/lib/Parse/DebControl/Patch.pm
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
-+++ libparse-debcontrol-perl/lib/Parse/DebControl/Patch.pm 2009-12-01 01:02:57.000000000 +0100
-@@ -0,0 +1,155 @@
++++ libparse-debcontrol-perl/lib/Parse/DebControl/Patch.pm 2009-12-01 21:18:01.000000000 +0100
+@@ -0,0 +1,191 @@
+package Parse::DebControl::Patch;
++=pod
++=head1 NAME
++
++Parse::DebControl::Patch - Easy OO parsing of debian patch file metadata (DEP3) data
++
++=head1 SYNOPSIS
++
++ use Parse::DebControl::Patch
++
++ $parser = new Parse::DebControl::Patch;
++
++ $data = $parser->parse_mem($control_data, $options);
++ $data = $parser->parse_file('./debian/control', $options);
++ $data = $parser->parse_web($url, $options);
++
++=head1 DESCRIPTION
++
++ The patch-file metadata specification (DEP3) diverts from the normal debian/control
++ rules primarly of the "free-form" field specification. To handle this we most create
++ an parser specifically for this format and hardcode these rules direclty into the code.
++
++ As we will always only have one block of data, we will return the hashref directly
++ instead of enclosing it into an array.
++
++ The field B<Forwarded> is magic and will always exists in the out data, even if not specified
++ in the indata. It can only have three values, I<yes>, I<no>, and I<not-needed>. If not specified
++ it will have the value I<yes>.
++
++=head1 COPYRIGHT
++
++Parse::DebControl is copyright 2003,2004 Jay Bonci E<lt>jaybonci at cpan.orgE<gt>.
++Parse::DebControl::Patch is copyright 2009 Carl Fürstenberg E<lt>azatoth at gmail.comE<gt>.
++This program is free software; you can redistribute it and/or modify it under
++the same terms as Perl itself.
++
++=cut
+use strict;
+use warnings;
+
@@ -317,7 +382,7 @@
Index: libparse-debcontrol-perl/t/35patch.t
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
-+++ libparse-debcontrol-perl/t/35patch.t 2009-12-01 01:02:57.000000000 +0100
++++ libparse-debcontrol-perl/t/35patch.t 2009-12-01 20:45:05.000000000 +0100
@@ -0,0 +1,76 @@
+#
+#===============================================================================
@@ -398,7 +463,7 @@
Index: libparse-debcontrol-perl/t/testfiles/patch1.diff
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
-+++ libparse-debcontrol-perl/t/testfiles/patch1.diff 2009-12-01 01:02:57.000000000 +0100
++++ libparse-debcontrol-perl/t/testfiles/patch1.diff 2009-12-01 20:45:05.000000000 +0100
@@ -0,0 +1,27 @@
+From: Ulrich Drepper <drepper at redhat.com>
+Subject: Fix regex problems with some multi-bytes characters
@@ -429,8 +494,8 @@
+
Index: libparse-debcontrol-perl/lib/Parse/DebControl.pm
===================================================================
---- libparse-debcontrol-perl.orig/lib/Parse/DebControl.pm 2009-12-01 01:02:07.000000000 +0100
-+++ libparse-debcontrol-perl/lib/Parse/DebControl.pm 2009-12-01 01:31:33.000000000 +0100
+--- libparse-debcontrol-perl.orig/lib/Parse/DebControl.pm 2009-12-01 01:39:34.000000000 +0100
++++ libparse-debcontrol-perl/lib/Parse/DebControl.pm 2009-12-01 20:45:05.000000000 +0100
@@ -13,10 +13,94 @@
use IO::Scalar;
use Compress::Zlib;
More information about the Pkg-perl-cvs-commits
mailing list