equal
deleted
inserted
replaced
40 if (! -d $Logs_Dir) |
40 if (! -d $Logs_Dir) |
41 { |
41 { |
42 die("$Logs_Dir does not exist \n"); |
42 die("$Logs_Dir does not exist \n"); |
43 } |
43 } |
44 |
44 |
45 $dir_left =~ m/^(\w+)\.[0-9a-fA-F]+/; |
45 #$dir_left =~ m/^(\w+)\.[0-9a-fA-F]+/; |
|
46 $dir_right =~ m/^(\w+)\.[0-9a-fA-F]+/; |
46 my $package_name = $1; |
47 my $package_name = $1; |
47 |
48 |
48 $dir_left =~ m/^\w+\.([0-9a-fA-F]+)/; |
49 $dir_left =~ m/^\w+\.([0-9a-fA-F]+)/; |
49 my $changeset_left = $1; |
50 my $changeset_left = $1; |
50 |
51 |