r17992 - in /trunk/libsvg-perl: Changes META.yml debian/changelog lib/SVG.pm lib/SVG/Manual.pm
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Wed Mar 26 18:00:04 UTC 2008
Author: gregoa-guest
Date: Wed Mar 26 18:00:03 2008
New Revision: 17992
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=17992
Log:
New upstream release.
Modified:
trunk/libsvg-perl/Changes
trunk/libsvg-perl/META.yml
trunk/libsvg-perl/debian/changelog
trunk/libsvg-perl/lib/SVG.pm
trunk/libsvg-perl/lib/SVG/Manual.pm
Modified: trunk/libsvg-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvg-perl/Changes?rev=17992&op=diff
==============================================================================
--- trunk/libsvg-perl/Changes (original)
+++ trunk/libsvg-perl/Changes Wed Mar 26 18:00:03 2008
@@ -1,5 +1,7 @@
Revision history for Perl extension SVG.
+2.37 11 November, 2007
+ -Added NS definitions for svg and xlink to enable xlink:href and svg: namespace usage in Firefox.
2.36 16 September, 2007
-Fixed SVG::DOM POD
Modified: trunk/libsvg-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvg-perl/META.yml?rev=17992&op=diff
==============================================================================
--- trunk/libsvg-perl/META.yml (original)
+++ trunk/libsvg-perl/META.yml Wed Mar 26 18:00:03 2008
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: SVG
-version: 2.36
+version: 2.37
version_from: lib/SVG.pm
installdirs: site
requires:
Modified: trunk/libsvg-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvg-perl/debian/changelog?rev=17992&op=diff
==============================================================================
--- trunk/libsvg-perl/debian/changelog (original)
+++ trunk/libsvg-perl/debian/changelog Wed Mar 26 18:00:03 2008
@@ -1,14 +1,15 @@
-libsvg-perl (2.36-2) UNRELEASED; urgency=low
+libsvg-perl (2.37-1) UNRELEASED; urgency=low
+
+ [ David Paleino ]
+ * debian/watch updated: old url gave 403 error.
[ gregor herrmann ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza). Removed:
Homepage pseudo-field (Description); XS-Vcs-Svn fields.
+ * New upstream release.
- [ David Paleino ]
- * debian/watch updated: old url gave 403 error.
-
- -- David Paleino <d.paleino at gmail.com> Sun, 04 Nov 2007 11:11:52 +0100
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Wed, 26 Mar 2008 18:58:54 +0100
libsvg-perl (2.36-1) unstable; urgency=low
Modified: trunk/libsvg-perl/lib/SVG.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvg-perl/lib/SVG.pm?rev=17992&op=diff
==============================================================================
--- trunk/libsvg-perl/lib/SVG.pm (original)
+++ trunk/libsvg-perl/lib/SVG.pm Wed Mar 26 18:00:03 2008
@@ -17,7 +17,7 @@
@ISA = qw(SVG::Element SVG::Extension);
-$VERSION = "2.36";
+$VERSION = "2.37";
#-------------------------------------------------------------------------------
@@ -223,7 +223,10 @@
unless ($attrs{-namespace}) {
$attrs{'xmlns'} = $attrs{'xmlns'} || $attrs{'-xml_svg'};
}
- $attrs{'xmlns:xlink'} = $attrs{'xmlns:xlink'} || $attrs{'-xml_xlink'};
+ $attrs{'xmlns:xlink'} = $attrs{'xmlns:xlink'} || $attrs{'-xml_xlink'} || 'http://www.w3.org/1999/xlink';
+ $attrs{'xmlns:svg'} = $attrs{'xmlns:svg'} || $attrs{'-xml_svg'} || 'http://www.w3.org/2000/svg';
+
+
$self->{-level} = 0;
$self->{$_} = $attrs{$_} foreach keys %default_attrs;
Modified: trunk/libsvg-perl/lib/SVG/Manual.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvg-perl/lib/SVG/Manual.pm?rev=17992&op=diff
==============================================================================
--- trunk/libsvg-perl/lib/SVG/Manual.pm (original)
+++ trunk/libsvg-perl/lib/SVG/Manual.pm Wed Mar 26 18:00:03 2008
@@ -1,6 +1,6 @@
package SVG::Manual;
-our $VERSION = 2.35;
+our $VERSION = 2.37;
use vars qw($VERSION);
$VERSION = eval $VERSION;
@@ -11,7 +11,7 @@
=head2 VERSION
-Covers SVG-2.35 distribution
+Covers SVG-2.37 distribution, November 2007
=head1 SYNOPSIS
@@ -899,10 +899,26 @@
=head2 xmlescp and xmlescape
-$string = $svg->xmlescp($string)
-$string = $svg->xmlescape($string)
-
-SVG module does not xml-escape characters that are incompatible with the XML specification. B<xmlescp> and B<xmlescape> provides this functionality. It is a helper method which Generates an XML-escaped string for reserved characters such as ampersand, open and close brackets, etcetera.
+$string = SVG::xmlescp($string)
+$string = SVG::xmlesc($string)
+$string = SVG::xmlescape($string)
+
+SVG module does not xml-escape characters that are incompatible with the XML specification. B<xmlescp> and B<xmlescape> provides this functionality. It is a helper function which Generates an XML-escaped string for reserved characters such as ampersand, open and close brackets, etcetera.
+
+The behaviour of xmlesc is to apply the following transformation to the input string $s:
+
+ $s = '0' unless defined $s;
+ $s=join(', ',@{$s}) if(ref($s) eq 'ARRAY');
+ $s=~s/&(?!#(x\w\w|\d+?);)/&/g;
+ $s=~s/>/>/g;
+ $s=~s/</</g;
+ $s=~s/\"/"/g;
+ $s=~s/\'/'/g;
+ $s=~s/\`/'/g;
+ $s=~s/([\x00-\x1f])/sprintf('&#x%02X;',chr($1))/eg;
+ #per suggestion from Adam Schneider
+ $s=~s/([\200-\377])/'&#'.ord($1).';'/ge;
+
=head2 filter
More information about the Pkg-perl-cvs-commits
mailing list