diff options
| author | Green, Paul <pgreen@seussnt.stratus.com> | 1998-09-09 20:02:07 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 09:21:11 +0000 |
| commit | 495c5fdc8fec0d7d0f72a84d44bb3e7cfc448d43 (patch) | |
| tree | 177a1786dbe4f22a002ec51cd7ceb44b1857fc51 /vos/test_vos_dummies.c | |
| parent | bd3fa61ce4cf706aee95ff3241fb1c7b94ddf61a (diff) | |
| download | perl-495c5fdc8fec0d7d0f72a84d44bb3e7cfc448d43.tar.gz | |
RE: [PATCH] 5.005_02 and 5.005_51: Stratus VOS port
Message-ID: <646CD0392810D211B04A00A024BF26FB1022EB@terminator.sw.stratus.com>
p4raw-id: //depot/perl@1838
Diffstat (limited to 'vos/test_vos_dummies.c')
| -rw-r--r-- | vos/test_vos_dummies.c | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/vos/test_vos_dummies.c b/vos/test_vos_dummies.c new file mode 100644 index 0000000000..2f5cc941eb --- /dev/null +++ b/vos/test_vos_dummies.c @@ -0,0 +1,43 @@ +/* +++begin copyright+++ ******************************************* */ +/* */ +/* COPYRIGHT (c) 1997, 1998 Stratus Computer, Inc. */ +/* */ +/* This program is free software; you can redistribute it and/or */ +/* modify it under the terms of either: */ +/* */ +/* a) the GNU General Public License as published by the Free */ +/* Software Foundation; either version 1, or (at your option) any */ +/* later version, or */ +/* */ +/* b) the "Artistic License" which comes with this Kit. */ +/* */ +/* This program is distributed in the hope that it will be useful, */ +/* but WITHOUT ANY WARRANTY; without even the implied warranty of */ +/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either */ +/* the GNU General Public License or the Artistic License for more */ +/* details. */ +/* */ +/* You should have received a copy of the Artistic License with this */ +/* Kit, in the file named "Artistic". If not, you can get one from */ +/* the Perl distribution. */ +/* */ +/* You should also have received a copy of the GNU General Public */ +/* License along with this program; if not, you can get one from */ +/* the Perl distribution or else write to the Free Software */ +/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA */ +/* 02111-1307, USA. */ +/* */ +/* +++end copyright+++ ********************************************* */ + +/* This program tests the code in vos_dummies.c to make sure it + works as expected. */ + +extern int dup (int _fildes); + +int t_dummies () +{ +int fildes; + + fildes=3; + dup (fildes); +} |