[padb-devel] [padb commit] r72 - Fix a perl warning about reading unitialied variable.

[codesite-noreply at google.com]

Author: apittman
Date: Mon Jun 29 03:31:26 2009
New Revision: 72

Modified:
    branches/full-duplex/src/padb

Log:
Fix a perl warning about reading unitialied variable.


Modified: branches/full-duplex/src/padb
==============================================================================
--- branches/full-duplex/src/padb	(original)
+++ branches/full-duplex/src/padb	Mon Jun 29 03:31:26 2009
@@ -6808,7 +6808,7 @@

  common_main();

-if ( $ARGV[0] eq "--inner" ) {
+if ( $#ARGV >= 0 and $ARGV[0] eq "--inner" ) {
      shift @ARGV;
      inner_main();
  } else {