DBD-Informix

 view release on metacpan or  search on metacpan

examples/fixin.pl  view on Meta::CPAN

	# Make new file if necessary
	if ($filename eq '-') { select(STDOUT); }
	else
	{
		rename($filename, "$filename.bak") ||
			((warn "Can't modify $filename"), next FILE);
		open(OUT, ">$filename") ||
			die "Can't create new $filename: $!\n";
		($def, $ino, $mode) = stat IN;
		$mode = 0755 unless $dev;
		chmod $mode, $filename;
		select(OUT);
	}

	# Print the new #! line (or the equivalent) and copy the rest of the file.
	print;
	while (<IN>)
	{
		print;
	}
	close IN;

mknmd.sh  view on Meta::CPAN

        echo "$arg0: cannot find $source" >&2
        continue
    fi

    if [ "x$version" = "x-" ]
    then
        # Distributing non-SCCS file (e.g. FLEX-generated C source)
        $RM $target
        [ $qflag = yes ] || echo "$target $version"
        $CP $source $target
        chmod 444 $target
    else
        case "$source" in
        *,v)
            # RCS file
            if ${CO} -p -r$version $source >/dev/null 2>&1
            then
                case `basename $target` in
                *,v)
                    # Distributing RCS file
                    if [ $source != $target ]

mknmd.sh  view on Meta::CPAN

                    $RM $target
                    if [ "$notes" = "binary" ]
                    then
                        ${CO} -r$version ${COFLAGS} -p $source >$target
                    else
                        ${CO} -r$version ${COFLAGS} -p $source |
                        $MKVERSION $PVSFLAGS >$target
                    fi
                    ;;
                esac
                chmod 444 $target
            else
                echo "Unavailable version $version in RCS file $source" 1>&2
                exit 1
            fi
            ;;
        */s.*)
            # SCCS file
            if val -r$version $source >/dev/null 2>&1
            then
                case `basename $target` in

mknmd.sh  view on Meta::CPAN

                    $RM $target
                    if [ "$notes" = "binary" ]
                    then
                        ${GET} -r$version ${GFLAGS} -p $source >$target
                    else
                        ${GET} -r$version ${GFLAGS} -p $source |
                        $MKVERSION $PVSFLAGS >$target
                    fi
                    ;;
                esac
                chmod 444 $target
            else
                echo "Unavailable version $version in SCCS file $source" 1>&2
                exit 1
            fi
            ;;
        *)      echo "Unknown file type $source ($target - $version)" 1>&2
                exit 1
                ;;
        esac
    fi