From 572d614a3300ed4137d99c92a5bae8a34f7ae1a8 Mon Sep 17 00:00:00 2001 From: Jason Edward Stewart <jasons@apache.org> Date: Thu, 13 Mar 2008 12:32:42 +0000 Subject: [PATCH] newline fixes git-svn-id: https://svn.apache.org/repos/asf/xerces/c/trunk@636743 13f79535-47bb-0310-9956-ffa450edef68 --- swig/perl/t/EnumVal.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/swig/perl/t/EnumVal.t b/swig/perl/t/EnumVal.t index accc45466..d280b3606 100644 --- a/swig/perl/t/EnumVal.t +++ b/swig/perl/t/EnumVal.t @@ -23,12 +23,12 @@ use strict; 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); -- GitLab