← Back to branch summary

~ubuntu-branches/ubuntu/breezy/fortunes-es/breezy 

1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl -w
#
my $quote=0;
while (<STDIN>) {
	chomp;
	$quote = 1 if  /^%\s+--/ ;
	$quote = 0 if  /^%$/ ;
	if ( $quote ) {
		s/^%//;
	}
	print "$_\n";
}
exit 0;