[Libsysio-commit] libsysio_tests: libsysio/tests test_path.pl

[Sonja T. <so...@us...>]

Update of /cvsroot/libsysio/libsysio/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv3812/tests

Modified Files:
      Tag: libsysio_tests
	test_path.pl 
Log Message:
Fixed test_path.pl bug

Index: test_path.pl
===================================================================
RCS file: /cvsroot/libsysio/libsysio/tests/Attic/test_path.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -w -b -B -p -r1.1.2.3 -r1.1.2.4
--- test_path.pl	9 Jul 2003 15:22:16 -0000	1.1.2.3
+++ test_path.pl	9 Jul 2003 20:35:35 -0000	1.1.2.4
@@ -152,7 +152,7 @@ my $isalpha = 0;
 # (if they exist)
 if ( (@ARGV > 0) && ($ARGV[0] eq "-alpha")) {
   $isalpha = 1;
-  pop(@ARGV);
+  shift(@ARGV);
 }
 
 if (@ARGV == 0) {