epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Use basename instead of full path name

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-15 15:44:47 +02:00
parent e44db62e10
commit 0d88ff8eb6
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
process/ldap/update_group.pl
View file

@ -3,6 +3,7 @@
use v5.10.1;
use strict;
use warnings;
use File::Basename;
use Mail::Internet;
use Pod::Usage;
@ -293,11 +294,11 @@ sub process_user
return "Ok";
}
if ($0 =~ /^update_group/) {
if (basename($0) =~ /^update_group/) {
$_get_type = \&group_get_type;
Process::register("update_group", \&process_group);
}
elsif ($0 =~ /^update_user/) {
elsif (basename($0) =~ /^update_user/) {
$_get_type = \&user_get_type;
Process::register("update_user", \&process_user);
}