[prev in list] [next in list] [prev in thread] [next in thread] 

List:       xerces-cvs
Subject:    cvs commit: xml-xerces/perl/t TestUtils.pm
From:       jasons () apache ! org
Date:       2001-03-26 19:51:06
[Download RAW message or body]

jasons      01/03/26 11:51:05

  Modified:    perl/t   TestUtils.pm
  Log:
  	* t/TestUtils.pm (Repository):
  	Fixed $PERSONAL_FILE_NAME so that it used an absolute path that
  	   would work as file: URL
  
  Revision  Changes    Path
  1.5       +5 -1      xml-xerces/perl/t/TestUtils.pm
  
  Index: TestUtils.pm
  ===================================================================
  RCS file: /home/cvs/xml-xerces/perl/t/TestUtils.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- TestUtils.pm	2001/03/24 18:03:31	1.4
  +++ TestUtils.pm	2001/03/26 19:51:02	1.5
  @@ -22,6 +22,9 @@
   		$PERSONAL);
   
   BEGIN {
  +  # turn off annoying warnings
  +  $SIG{__WARN__} = 'IGNORE';
  +
     $DOM = new XML::Xerces::DOMParser;
     $DOM->setToCreateXMLDeclTypeNode(1);
   
  @@ -32,8 +35,9 @@
     $DOM->setErrorHandler($ERROR_HANDLER);
   
     my $cwd = cwd();
  +  $cwd =~ s|/t/?$||;
     $PERSONAL_FILE_NAME = 'personal.xml';
  -  $PERSONAL_FILE_NAME = '../' . $PERSONAL_FILE_NAME if $cwd =~ m|/t/?|;
  +  $PERSONAL_FILE_NAME = "$cwd/$PERSONAL_FILE_NAME";
     open(PERSONAL, $PERSONAL_FILE_NAME)
       or die "Couldn't open $PERSONAL_FILE_NAME for reading";
     $/ = undef;
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org

[prev in list] [next in list] [prev in thread] [next in thread]