r7848 - in /branches/upstream/libsvg-perl/current: Changes MANIFEST META.yml Makefile.PL lib/SVG.pm lib/SVG/DOM.pm lib/SVG/Manual.pm lib/SVG/XML.pm test/23-xmlescape.pl

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Sat Sep 22 06:27:03 UTC 2007 

Author: dmn
Date: Sat Sep 22 06:27:02 2007
New Revision: 7848

URL: http://svn.debian.org/wsvn/?sc=1&rev=7848
Log:
[svn-upgrade] Integrating new upstream version, libsvg-perl (2.36)

Added:
    branches/upstream/libsvg-perl/current/test/23-xmlescape.pl   (with props)
Modified:
    branches/upstream/libsvg-perl/current/Changes
    branches/upstream/libsvg-perl/current/MANIFEST
    branches/upstream/libsvg-perl/current/META.yml
    branches/upstream/libsvg-perl/current/Makefile.PL
    branches/upstream/libsvg-perl/current/lib/SVG.pm
    branches/upstream/libsvg-perl/current/lib/SVG/DOM.pm
    branches/upstream/libsvg-perl/current/lib/SVG/Manual.pm
    branches/upstream/libsvg-perl/current/lib/SVG/XML.pm

Modified: branches/upstream/libsvg-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/Changes?rev=7848&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/Changes (original)
+++ branches/upstream/libsvg-perl/current/Changes Sat Sep 22 06:27:02 2007
@@ -1,8 +1,20 @@
 Revision history for Perl extension SVG.
+
+
+2.36	16 September, 2007
+	-Fixed SVG::DOM POD
+
+2.35	14 September, 2007
+	-Fixed SVG::DOM POD
+
 2.34    17 May 2005
 	-SVG::Element - Removed elsep entry for CDATA, cdata, cdata_noxmlesc fields to get rid of
 	artificial blank spaces that confuse some browsers
 	-SVG::DOM - added getRootNode method
+	-Added user-contributed DOM2 methods to SVG::DOM	
+
+
+
 2.33    14 May, 2005
 	-fixed the xlink reference behaviour which was wrong and 
 	 broke Mozilla native SVG. Fix submitted by Ian Hickson

Modified: branches/upstream/libsvg-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/MANIFEST?rev=7848&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/MANIFEST (original)
+++ branches/upstream/libsvg-perl/current/MANIFEST Sat Sep 22 06:27:02 2007
@@ -31,6 +31,7 @@
 test/20-anchor.pl
 test/21-polygon.pl
 test/22-xlink.pl
+test/23-xmlescape.pl
 examples/svgtest2.pl
 examples/SVG_02_sample.pl
 examples/image_sample.pl

Modified: branches/upstream/libsvg-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/META.yml?rev=7848&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/META.yml (original)
+++ branches/upstream/libsvg-perl/current/META.yml Sat Sep 22 06:27:02 2007
@@ -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.34
+version:      2.36
 version_from: lib/SVG.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libsvg-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/Makefile.PL?rev=7848&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/Makefile.PL (original)
+++ branches/upstream/libsvg-perl/current/Makefile.PL Sat Sep 22 06:27:02 2007
@@ -7,5 +7,5 @@
     PREREQ_PM         => {}, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
       (ABSTRACT_FROM  => 'lib/SVG/Manual.pm', # retrieve abstract from module
-       AUTHOR         => 'Ronan Oger <ronan at roitsystems.com>') : ()),
+       AUTHOR         => 'Ronan Oger <ronan at cpan.com>') : ()),
 );

Modified: branches/upstream/libsvg-perl/current/lib/SVG.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/lib/SVG.pm?rev=7848&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/lib/SVG.pm (original)
+++ branches/upstream/libsvg-perl/current/lib/SVG.pm Sat Sep 22 06:27:02 2007
@@ -17,7 +17,7 @@
 
 @ISA = qw(SVG::Element SVG::Extension);
 
-$VERSION = "2.34";
+$VERSION = "2.36";
 
 #-------------------------------------------------------------------------------
 
@@ -25,7 +25,7 @@
 
 =head2 VERSION
 
-Version 2.34, 15 August, 2007
+Version 2.36, 15 August, 2007
 
 Refer to L<SVG::Manual> for the complete manual
 

Modified: branches/upstream/libsvg-perl/current/lib/SVG/DOM.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/lib/SVG/DOM.pm?rev=7848&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/lib/SVG/DOM.pm (original)
+++ branches/upstream/libsvg-perl/current/lib/SVG/DOM.pm Sat Sep 22 06:27:02 2007
@@ -2,7 +2,7 @@
 use strict;
 
 use vars qw($VERSION);
-$VERSION = "1.03";
+$VERSION = "1.04";
 
 # this module extends SVG::Element
 package SVG::Element;
@@ -570,9 +570,6 @@
 elements through DOM-like methods such as getElements, getChildren, getNextSibling
 and so on. 
 
-Currently only methods that provide read operations are supported. Methods to
-manipulate SVG elements will be added in a future release.
-
 =head1 SYNOPSIS
 
     my $svg=new SVG(id=>"svg_dom_synopsis", width=>"100", height=>"100");
@@ -754,8 +751,6 @@
 
 perl(1), L<SVG>, L<SVG::XML>, L<SVG::Element>, L<SVG::Parser>, L<SVG::Manual>
 
-L<http://www.roitsystems.com/> ROASP.com: Serverside SVG server
-L<http://www.vectoreal.com/> Vectoreal: Commercal SVG Application solutions
 L<http://www.roitsystems.com/> ROIT Systems: Commercial SVG perl solutions
 L<http://www.w3c.org/Graphics/SVG/> SVG at the W3C
 

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=7848&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/lib/SVG/Manual.pm (original)
+++ branches/upstream/libsvg-perl/current/lib/SVG/Manual.pm Sat Sep 22 06:27:02 2007
@@ -1,6 +1,6 @@
 package SVG::Manual;
 
-our $VERSION = 2.34;
+our $VERSION = 2.35;
 use vars qw($VERSION);
 
 $VERSION = eval $VERSION;
@@ -11,7 +11,7 @@
 
 =head2 VERSION
 
-Covers SVG-2.34 distribution
+Covers SVG-2.35 distribution
 
 =head1 SYNOPSIS
 
@@ -897,6 +897,13 @@
 
   L<"cdata">, L<"script">.
 
+=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.
+
 =head2 filter
 
 $tag = $svg->filter(%attributes)

Modified: branches/upstream/libsvg-perl/current/lib/SVG/XML.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/lib/SVG/XML.pm?rev=7848&op=diff
==============================================================================
--- branches/upstream/libsvg-perl/current/lib/SVG/XML.pm (original)
+++ branches/upstream/libsvg-perl/current/lib/SVG/XML.pm Sat Sep 22 06:27:02 2007
@@ -21,11 +21,13 @@
 use strict;
 use vars qw($VERSION @ISA @EXPORT );
 
-$VERSION = "2.26";
+$VERSION = "2.27";
 
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(
+    xmlesc
+    xmlescape
     xmlescp
     cssstyle
     xmlattrib
@@ -58,6 +60,10 @@
 
     return $s;
 }
+
+*xmlesc=\&xmlescp;
+
+*xmlescape=\&xmlescp;
 
 sub cssstyle {
     my %attrs=@_;

Added: branches/upstream/libsvg-perl/current/test/23-xmlescape.pl
URL: http://svn.debian.org/wsvn/branches/upstream/libsvg-perl/current/test/23-xmlescape.pl?rev=7848&op=file
==============================================================================
--- branches/upstream/libsvg-perl/current/test/23-xmlescape.pl (added)
+++ branches/upstream/libsvg-perl/current/test/23-xmlescape.pl Sat Sep 22 06:27:02 2007
@@ -1,0 +1,16 @@
+#!/usr/bin/perl -w
+use strict;
+use SVG;
+
+# test: style
+
+my $svg  = new SVG;
+my $out1 = $svg->text()->cdata_noxmlesc(SVG::xmlescp("><!&"));
+my $out2 = $svg->text()->cdata("><!&");
+
+$svg->xmlify();
+
+print("Failed on xmlesc helper function in svg: 1") and exit(0)
+  unless $out1->xmlify() eq $out2->xmlify();
+
+exit 1;

Propchange: branches/upstream/libsvg-perl/current/test/23-xmlescape.pl
------------------------------------------------------------------------------
    svn:executable = *

More information about the Pkg-perl-cvs-commits mailing list