fix shootout/revcomp.p6.pl

gerdr · gerdr · commit 2e1557f53c40 · 2012-05-06T20:47:37.000+03:00
diff --git a/shootout/revcomp.p6.pl b/shootout/revcomp.p6.pl
@@ -4,7 +4,7 @@
 #
 # USAGE: perl6 revcomp.p6.pl < revcomp.input
 
-my($desc,$seq) = ('','');
+my ($desc,$seq) = ('','');
 while $*IN.get -> $line {
 	if $line.match(/^ \>/) {
 		print_revcomp();

Original file line number	Diff line number	Diff line change
`@@ -4,7 +4,7 @@`
`4`	`4`	`#`
`5`	`5`	`# USAGE: perl6 revcomp.p6.pl < revcomp.input`
`6`	`6`
`7`		`-my($desc,$seq) = ('','');`
	`7`	`+my ($desc,$seq) = ('','');`
`8`	`8`	`while $*IN.get -> $line {`
`9`	`9`	`if $line.match(/^ \>/) {`
`10`	`10`	`print_revcomp();`