File: pipe.pl

package info (click to toggle)
libwx-perl 1%3A0.9932-9
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 5,300 kB
  • sloc: cpp: 11,064; perl: 8,603; ansic: 711; makefile: 53
file content (20 lines) | stat: -rwxr-xr-x 672 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl -w
#############################################################################
## Name:        script/pipe.pl
## Purpose:     redirects stderr to stdout and execs arguments
## Author:      Mattia Barbon
## Modified by:
## Created:     13/12/2000
## RCS-ID:      $Id: pipe.pl 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright:   (c) 2000 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

open STDERR, ">&STDOUT";

exec @ARGV;

# Local variables: #
# mode: cperl #
# End: #