Home | History | Annotate | Download | only in livemedia
      1  0  dave #
      2  0  dave # CDDL HEADER START
      3  0  dave #
      4  0  dave # The contents of this file are subject to the terms of the
      5  0  dave # Common Development and Distribution License (the "License").
      6  0  dave # You may not use this file except in compliance with the License.
      7  0  dave #
      8  0  dave # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
      9  0  dave # or http://www.opensolaris.org/os/licensing.
     10  0  dave # See the License for the specific language governing permissions
     11  0  dave # and limitations under the License.
     12  0  dave #
     13  0  dave # When distributing Covered Code, include this CDDL HEADER in each
     14  0  dave # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
     15  0  dave # If applicable, add the following below this CDDL HEADER, with the
     16  0  dave # fields enclosed by brackets "[]" replaced with your own identifying
     17  0  dave # information: Portions Copyright [yyyy] [name of copyright owner]
     18  0  dave #
     19  0  dave # CDDL HEADER END
     20  0  dave #
     21  0  dave 
     22  0  dave #
     23  0  dave # Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
     24  0  dave # Use is subject to license terms.
     25  0  dave #
     26  0  dave # ident	"%Z%%M%	%I%	%E% SMI"
     27  0  dave #
     28  0  dave # Reverse the order of entries in the package list
     29  0  dave #
     30  0  dave my ($fl) = $ARGV[0];
     31  0  dave 
     32  0  dave open(PKGS, "<$fl") || die "Unable to open $fl";
     33  0  dave my $buf = "";
     34  0  dave 
     35  0  dave while (my $line=<PKGS>) {
     36  0  dave 	chomp($line);
     37  0  dave 	$buf = "$line\n$buf";
     38  0  dave }
     39  0  dave 
     40  0  dave close(PKGS);
     41  0  dave print "$buf";
     42