← Back to branch summary

~ubuntu-branches/ubuntu/dapper/perl-tk/dapper

« back to all changes in this revision

Viewing changes to pod/tidypod

  • Committer: Bazaar Package Importer
  • Author(s): Michael C. Schultheiss
  • Date: 2006-01-16 16:54:02 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20060116165402-1ppygm8hh8ahel2x
Tags: 1:804.027-2
http://bugs.debian.org/348086
* Incorporate changes from NMU (Thanks to Steve Kowalik.
  Closes: #348086)
* debian/control: Update Standards-Version (no changes needed)

Show diffs side-by-side

added added

removed removed

Lines of Context:
pod/tidypod
1
1
#!/usr/local/bin/new/perl -w
2
2
 
3
3
undef $/;
4
 
$^I = '.bak';             
 
4
$^I = '.bak';
5
5
 
6
6
my @undo;
7
7
 
8
8
my $edits = 0;
9
9
while (<>)
10
 
 {                  
 
10
 {
11
11
  $edits += s/[\t ]+(?=\n)//mg;
12
12
  $edits += s/\n=back\n+=over\s+\d+\n/\n\n/mg;
13
13
  $edits += s/\n{3,}/\n\n/mg;
23
23
  print;
24
24
  if (eof)
25
25
   {
26
 
    warn "$edits $ARGV\n"; 
 
26
    warn "$edits $ARGV\n";
27
27
    push(@undo,$ARGV) unless $edits;
28
28
    $edits = 0;
29
29
   }