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+?);)/&amp;/g;
+    $s=~s/>/&gt;/g;
+    $s=~s/</&lt;/g;
+    $s=~s/\"/&quot;/g;
+    $s=~s/\'/&apos;/g;
+    $s=~s/\`/&apos;/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