r17990 - in /branches/upstream/libsvg-perl/current: Changes META.yml lib/SVG.pm lib/SVG/Manual.pm
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Wed Mar 26 17:58:32 UTC 2008
Author: gregoa-guest
Date: Wed Mar 26 17:58:31 2008
New Revision: 17990
URL: http://svn.debian.org/wsvn/?sc=1&rev=17990
Log:
[svn-upgrade] Integrating new upstream version, libsvg-perl (2.37)
Modified:
branches/upstream/libsvg-perl/current/Changes
branches/upstream/libsvg-perl/current/META.yml
branches/upstream/libsvg-perl/current/lib/SVG.pm
branches/upstream/libsvg-perl/current/lib/SVG/Manual.pm
Modified: branches/upstream/libsvg-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/Changes?rev=17990&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/Changes (original)
+++ branches/upstream/libsvg-perl/current/Changes Wed Mar 26 17:58:31 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: branches/upstream/libsvg-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/META.yml?rev=17990&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/META.yml (original)
+++ branches/upstream/libsvg-perl/current/META.yml Wed Mar 26 17:58:31 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: branches/upstream/libsvg-perl/current/lib/SVG.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/lib/SVG.pm?rev=17990&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/lib/SVG.pm (original)
+++ branches/upstream/libsvg-perl/current/lib/SVG.pm Wed Mar 26 17:58:31 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: branches/upstream/libsvg-perl/current/lib/SVG/Manual.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/lib/SVG/Manual.pm?rev=17990&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/lib/SVG/Manual.pm (original)
+++ branches/upstream/libsvg-perl/current/lib/SVG/Manual.pm Wed Mar 26 17:58:31 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