File: test1.pl

package info (click to toggle)
librcs-perl 1.05-6
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 476 kB
  • sloc: perl: 1,399; makefile: 2
file content (14 lines) | stat: -rwxr-xr-x 185 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl -w

use strict;
use lib '.';
use Rcs;

my $p = new Rcs();
$p->workdir("foo");

my $n = new Rcs();
$n->workdir("bar");

print $p->workdir, "\n";
print $n->workdir, "\n";