← Back to branch summary

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

« back to all changes in this revision

Viewing changes to unprotect-quote.pl

  • Committer: Bazaar Package Importer
  • Author(s): Javier Fernandez-Sanguino Pen~a
  • Date: 2005-04-24 01:52:04 UTC
  • mfrom: (1.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20050424015204-ndov9cxtiho7l0jf
Tags: 1.24
Added feminist fortunes provided by Miriam Ruiz to the -off package

Show diffs side-by-side

added added

removed removed

Lines of Context:
unprotect-quote.pl
 
1
#!/usr/bin/perl -w
 
2
#
 
3
my $quote=0;
 
4
while (<STDIN>) {
 
5
        chomp;
 
6
        $quote = 1 if  /^%\s+--/ ;
 
7
        $quote = 0 if  /^%$/ ;
 
8
        if ( $quote ) {
 
9
                s/^%//;
 
10
        }
 
11
        print "$_\n";
 
12
}
 
13
exit 0;