Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 88e5a86e

Von Moritz Bunkus vor fast 14 Jahren hinzugefügt

  • ID 88e5a86ec8d02e0fcc98a3fbefff39f0a6ba1427
  • Vorgänger 7056eb31
  • Nachfolger cad439ef

Vor Ausführung Verzeichnis wechseln

Unterschiede anzeigen:

scripts/task_server.pl
3 3 
use strict;
4 4 

  		




  5
  5
  
    
BEGIN {


  		




  
  6
  
    
  require Cwd;


  		




  
  7
  
    

  		




  
  8
  
    
  my $dir =  $0;


  		




  
  9
  
    
  $dir    =  Cwd::getcwd() . '/' . $dir unless $dir =~ m|^/|;


  		




  
  10
  
    
  $dir    =~ s|[^/]+$|..|;


  		




  
  11
  
    

  		




  
  12
  
    
  chdir($dir) || die "Cannot change directory to ${dir}\n";


  		




  
  13
  
    

  		




  6
  14
  
    
  unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).


  		




  7
  15
  
    
  push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.


  		




  8
  16
  
    
}


  		












Auch abrufbar als:  Unified diff