42 строки
976 B
Perl
Исполняемый файл
42 строки
976 B
Perl
Исполняемый файл
#!/usr/bin/env perl
|
|
#
|
|
# Copyright (c) 2010 Oracle and/or its affiliates. All rights reserved.
|
|
#
|
|
# Script to see if ob1 directory has moved ahead.
|
|
#
|
|
#
|
|
|
|
use strict;
|
|
|
|
# This revision represents that last known change to the ob1 directory.
|
|
# Therefore, we check to see if there is a difference between this revision
|
|
# and the head of the trunk.
|
|
#
|
|
# To run this: check-ob1-revision.pl
|
|
#
|
|
# After the changes are ported, one can bump up the $revision variable in
|
|
# in this file to whatever the ob1 directory is at.
|
|
#
|
|
my $revision = "-r24138";
|
|
my $cmd;
|
|
my $cmd_output;
|
|
my $pmlsdir = "../ompi/mca/pml";
|
|
|
|
$cmd = "svn diff $revision $pmlsdir/ob1";
|
|
|
|
open (CMD, "$cmd|");
|
|
$cmd_output .= $_
|
|
while (<CMD>);
|
|
close(CMD);
|
|
|
|
print "Running $cmd\n";
|
|
|
|
if ($cmd_output eq "") {
|
|
print "No new changes detected in ob1. Everything is fine.\n";
|
|
} else {
|
|
print "The following changes should be reviewed to see if they should \n";
|
|
print "be ported to bfo.\n\n";
|
|
print "$cmd_output";
|
|
}
|
|
|