File Manager

X7ROOT File Manager

Current Path: /lib64/perl5/vendor_perl

ðŸ“ ..
ðŸ“ Bundle
ðŸ“ Compress
ðŸ“ Crypt
ðŸ“„ Cwd.pm(21.29 KB)
ðŸ“ DBD
ðŸ“ DBI
ðŸ“„ DBI.pm(308.81 KB)
ðŸ“„ DB_File.pm(63.58 KB)
ðŸ“ Data
ðŸ“ Devel
ðŸ“ Digest
ðŸ“ Encode
ðŸ“„ Encode.pm(34.56 KB)
ðŸ“ File
ðŸ“ Filter
ðŸ“ HTML
ðŸ“ IO
ðŸ“ IPC
ðŸ“ JSON
ðŸ“ List
ðŸ“ MIME
ðŸ“ Math
ðŸ“ Net
ðŸ“ Params
ðŸ“ Scalar
ðŸ“„ Socket.pm(36.19 KB)
ðŸ“„ Socket6.pm(9.55 KB)
ðŸ“ Storable
ðŸ“„ Storable.pm(48.09 KB)
ðŸ“ Sub
ðŸ“ Sys
ðŸ“ Term
ðŸ“ Time
ðŸ“ Unicode
ðŸ“ YAML
ðŸ“ auto
ðŸ“ common
ðŸ“„ dbixs_rev.pl(1.51 KB)
ðŸ“„ encoding.pm(22.41 KB)
ðŸ“ threads
ðŸ“„ threads.pm(36.05 KB)
ðŸ“ version
ðŸ“„ version.pm(3.47 KB)
ðŸ“„ version.pod(9.6 KB)

Editing: dbixs_rev.pl

#!/usr/bin/perl -w
use strict;

my $dbixs_rev_file = "dbixs_rev.h";

my $is_make_dist;
my $svnversion;

if (is_dbi_svn_dir(".")) {
    $svnversion = `svnversion -n`;
}
elsif (is_dbi_svn_dir("..")) {
    # presumably we're in a subdirectory because the user is doing a 'make dist'
    $svnversion = `svnversion -n ..`;
    $is_make_dist = 1;
}
else {
    # presumably we're being run by an end-user because their file timestamps
    # got messed up
    print "Skipping regeneration of $dbixs_rev_file\n";
    utime(time(), time(), $dbixs_rev_file); # update modification time
    exit 0;
}

my @warn;
die "Neither current directory nor parent directory are an svn working copy\n"
    unless $svnversion and $svnversion =~ m/^\d+/;
push @warn, "Mixed revision working copy ($svnversion:$1)"
    if $svnversion =~ s/:(\d+)//;
push @warn, "Code modified since last checkin"
    if $svnversion =~ s/[MS]+$//;
warn "$dbixs_rev_file warning: $_\n" for @warn;
die "$0 failed\n" if $is_make_dist && @warn;

write_header($dbixs_rev_file, DBIXS_REVISION => $svnversion, \@warn);

sub write_header {
    my ($file, $macro, $version, $comments_ref) = @_;
    open my $fh, ">$file" or die "Can't open $file: $!\n";
    unshift @$comments_ref, scalar localtime(time);
    print $fh "/* $_ */\n" for @$comments_ref;
    print $fh "#define $macro $version\n";
    close $fh or die "Error closing $file: $!\n";
    print "Wrote $macro $version to $file\n";
}

sub is_dbi_svn_dir {
    my ($dir) = @_;
    return (-d "$dir/.svn" && -f "$dir/MANIFEST.SKIP");
}

X7ROOT File Manager

Editing: dbixs_rev.pl

Upload File

Create Folder