Author: jasons
Date: Thu Mar 13 05:32:42 2008
New Revision: 636743
URL: http://svn.apache.org/viewvc?rev=636743&view=rev
Log:
newline fixes
Modified:
xerces/c/trunk/swig/perl/t/EnumVal.t
Modified: xerces/c/trunk/swig/perl/t/EnumVal.t
URL:
http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/EnumVal.t?rev=636743&r1=636742&r2=636743&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/EnumVal.t (original)
+++ xerces/c/trunk/swig/perl/t/EnumVal.t Thu Mar 13 05:32:42 2008
@@ -23,12 +23,12 @@
XML::Xerces::XMLPlatformUtils::Initialize();
my $perl = $Config{startperl};
-$perl =~ s/^\#!//;
+$perl =~ s/^\#!//;
my $output;
-if ($^O eq 'MSWin32') {
- $output = `$perl $SAMPLE_DIR/EnumVal.pl $PERSONAL_FILE_NAME 2>NUL`;
-} else {
- $output = `$perl $SAMPLE_DIR/EnumVal.pl $PERSONAL_FILE_NAME 2>/dev/null`;
+if ($^O eq 'MSWin32') {
+ $output = `$perl $SAMPLE_DIR/EnumVal.pl $PERSONAL_FILE_NAME 2>NUL`;
+} else {
+ $output = `$perl $SAMPLE_DIR/EnumVal.pl $PERSONAL_FILE_NAME 2>/dev/null`;
}
my @lines = split("\n", $output);
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
