From 27efaf0a11b5e4118b3ad098609c7c8039274523 Mon Sep 17 00:00:00 2001 From: Angel Ortega Date: Thu, 1 Oct 2009 10:54:14 +0200 Subject: [PATCH] Minor coding style changes. --- Art5.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Art5.pm b/Art5.pm index adc6742..6c43915 100644 --- a/Art5.pm +++ b/Art5.pm @@ -47,8 +47,8 @@ sub parse { } elsif ($$seq =~ s/^(@?)"(([^"\\]*(\\.[^"\\]*)*))"\s*//) { # double quoted string - my $op = $1 || '"'; - my $str = $2; + my $op = $1 || '"'; + my $str = $2; # replace usual escaped characters $str =~ s/\\n/\n/g; @@ -61,8 +61,8 @@ sub parse { } elsif ($$seq =~ s/^(@?)'(([^'\\]*(\\.[^'\\]*)*))'\s*//) { # single quoted string - my $op = $1 || '"'; - my $str = $2; + my $op = $1 || '"'; + my $str = $2; $str =~ s/\\'/\'/g; $str =~ s/\\\\/\\/g; -- 2.11.4.GIT