← Back to branch summary

~ubuntu-branches/ubuntu/hoary/kdemultimedia/hoary

« back to all changes in this revision

Viewing changes to kmidi/my.pl

  • Committer: Bazaar Package Importer
  • Author(s): Martin Schulze
  • Date: 2003-01-22 15:00:51 UTC
  • Revision ID: james.westby@ubuntu.com-20030122150051-uihwkdoxf15mi1tn
Tags: upstream-2.2.2
Import upstream version 2.2.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
kmidi/my.pl
 
1
while (<>)
 
2
{
 
3
    if (m/^[\ ]*([A-Z0-9_]+)[\ ]*\+=[\ ]*(.*)/) {
 
4
        $identitifier{$1} = $identitifier{$1} . " " . $2;
 
5
    } else { $slurp[$#slurp + 1]=$_; }
 
6
}
 
7
 
 
8
print "# This Makefile has been mangled by a very rickety perl script.\n";
 
9
print "# Combined += 's: \n";
 
10
 
 
11
while (($a,$b,%identitifier)=%identitifier) {
 
12
    print $a, " = ", $b, "\n";
 
13
}
 
14
 
 
15
print "# The rest of the Makefile: \n";
 
16
 
 
17
print @slurp;