← Back to branch summary

~ubuntu-branches/ubuntu/natty/perl-tk/natty

« back to all changes in this revision

Viewing changes to mkdist

  • Committer: Bazaar Package Importer
  • Author(s): Stephen Zander
  • Date: 2004-03-14 13:54:44 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040314135444-prc09u2or4dbr3to
Tags: 1:800.025-2
http://bugs.debian.org/237942
Add xlibs-dev to Build-Depends:,
Closes: #237942

Show diffs side-by-side

added added

removed removed

Lines of Context:
mkdist
16
16
 die "Cannot " . join(' ',@_) if (system(@_));
17
17
}
18
18
 
19
 
open(MF,"<Makefile.PL") || die "Cannot open Makefile.PL:$!";
 
19
open(MF,"<Tk.pm") || die "Cannot open Tk.pm:$!";
20
20
while (<MF>)
21
21
 {
22
 
  if (/\$VERSION\s*=\s*'([^']+)'/)
 
22
  if (/\$Tk::VERSION\s*=\s*'([^']+)'/)
23
23
   {
24
24
    $version = $1;
25
25
    last;
36
36
my $path  = getcwd();
37
37
my $dir   = $path;
38
38
my $files = maniread();
39
 
$dir   =~ s#^.*/([^/]+)\d+$#$1#;
40
 
  
 
39
$dir      = 'Tk';
 
40
 
41
41
my $snag = 0;
42
42
 
43
43
foreach my $file (keys %$files)
45
45
  unless (-f $file)
46
46
   {
47
47
    $snag++;
48
 
    warn "$file not found\n"; 
 
48
    warn "$file not found\n";
49
49
   }
50
50
  if (-z $file)
51
51
   {
52
52
    $snag++;
53
 
    warn "$file is zero sized\n"; 
 
53
    warn "$file is zero sized\n";
54
54
   }
55
55
 }
56
56