Subversion Repositories gelsvn

Rev

Rev 68 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68 Rev 71
Line 22... Line 22...
22 
}
 22 
}
23 
 
 23 
 
24 
 
 24 
 
25 
sub sort_files {
 25 
sub sort_files {
26 
  #my($self) = shift;
 26 
  #my($self) = shift;
- 
 
 27 
  if (defined $ENV{MPC_ALWAYS_SORT}) {
- 
 
 28 
    return 1;
- 
 
 29 
  }
- 
 
 30 
  else {
27 
  return 0;
 31 
    return 0;
28 
}
 32 
  }
29 
 
 - 
 
30 
 
 - 
 
31 
sub project_file_name {
 - 
 
32 
  my($self) = shift;
 - 
 
33 
  my($name) = shift;
 - 
 
34 
 
 - 
 
35 
  if (!defined $name) {
 - 
 
36 
    $name = $self->project_name();
 - 
 
37 
  }
 33 
}
38 
 
 34 
 
- 
 
 35 
 
39 
  return $self->get_modified_project_file_name(
 36 
sub project_file_prefix {
40 
                                     "Makefile.$name",
 37 
  #my($self) = shift;
41 
                                     $self->project_file_extension());
 38 
  return 'Makefile.';
42 
}
 39 
}
43 
 
 40 
 
44 
1;
 41 
1;