You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2002/02/21 04:06:25 UTC
cvs commit: xml-xerces/perl/t Schema.t
jasons 02/02/20 19:06:25
Modified: perl/t Schema.t
Log:
* t/Schema.t (Repository):
Made a change that was guaranteed to break the schema
Revision Changes Path
1.4 +3 -2 xml-xerces/perl/t/Schema.t
Index: Schema.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/Schema.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Schema.t 10 Oct 2001 20:02:50 -0000 1.3
+++ Schema.t 21 Feb 2002 03:06:25 -0000 1.4
@@ -45,11 +45,12 @@
or die "Couldn't open $PERSONAL_SCHEMA_FILE_NAME for reading";
my $buf;
while (<IN>) {
- if (/<personnel>/) {
- s/<personnel>/<foo>/;
+ if (m|</personnel>|) {
+ s|</personnel>|</foo>|;
}
$buf .= $_;
}
+# print STDERR $buf;
eval {
$dom->parse(XML::Xerces::MemBufInputSource->new($buf));
};
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org